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COLDAT ist das universell ersetzbare Adreß- Verwaltungs- Programm für 16K und 32K 
Colour Genies mit einem oder zwei Disketten -Laufwerken und einem beliebigen Drucker. 

Mit COLDAT können Sie Adressen eingeben, laden, ändern, Aufkleber drucken, Listen er- 
stellen, selektieren, und, und, und, ... 


Interessant ist übrigens auch der Preis: COLDAT kostet auf Diskette mit ausführlichem 
deutschem Handbuch nur 79,- DM! 


Übrigens: COLDAT ist durch seine Bildschirm- und Drucker-Masken äußerst leicht zu 
bedienen! 


öigiDÖpijl kommt! 


DIGICOPY 

DIGICOPY 

DIGICOPY 

DIGICOPY 

DIGICOPY 

DIGICOPY 

DIGICOPY 

DIGICOPY 

DIGICOPY 

DIGICOPY 


ist eine völlig neue Entwicklung! 

ist ein digitales Kopiergerät für ALLE Colour Genie Programme und Daten ! 
kopiert ALLES! — Ob geschützt oder nicht! 

kopiert Basicprogramme, Maschinenprogramme und Daten-Cassetten ! 
ist aufgrund seiner klaren Anzeigen leicht zu bedienen! 

— Es gibt KEIN Programm, das ihm standhält! 
ist in ca. 6 Wochen lieferbar! 
benötigt keine zusätzliche Software! 
kostet nur 198,-- DM ! 

sollten Sie jetzt schon vorbestellen, denn DIGICOPY müssen Sie haben! 


Bestellen Sie noch heute bei : 

Ralf M. Hübben, 

Verlag für Computertechnik, 
Mühlbachstraße 2, 

5429 Marienfels/Ts. 

Wir liefern gegen Voreinsendung eines Verrech- 
nungsschecks, Porto und Verpackung frei, oder 
per Nachnahme plus 5,- DM Versandkosten 
Pauschale. 

Durch eine Andorung unseres Vortriebes können wir alle 
vorher angobotenen Programme nicht mehr Hofern I 
Wir bitten um Ihr Verständnis! 


WIR SUCHEN COLOUR GENIE 
HARD- UND SOFTWARE! 

Haben Sie ein gutes Programm für das Colour Genie? Egal ob Basic, 
Maschinensprache oder compiliert! Wenden Sie sich an uns! Wir 
bieten Ihnen für ein gutes Programm ein gutes Honorar l Oder ken- 
nen Sie vielleicht einen Grund, warum Sie sich nicht mit Ihrem 
Hobby ein paar Mark nebenher verdienen sollen? 

Selbstverständlich sind wir auch daran interessiert, gute Hardware 
für das Colour Genie mit Copyrights zu kaufen! 

Schreiben Sie uns oder rufen Sie an: Telefon 06772-7828. 
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In eigener Sache 


Liebe Leser, Abonnenten und 
Inserenten ! 

An dieser Stelle möchte ich 
Ralf M. Hübben offiziell dan- 
ken, daß er die GENIE DATA 
in's Leben rief und in einer sehr 
guten Ausführung bis zur Aus- 
gabe Nummer 5, Jahrgang 1, 
für Sie erstellt hat. 

Legen wir die Karten kurz auf 
den Tisch, verdient hat er bei den 
5 Ausgaben nichts — sondern 
ganz im Gegenteil. Aber Sie kön- 
nen ja "selbst rechnen"! 

Nun. ich habe die GENIE 
DATA übernommen, und auch Sie 
liebe Leser werden meiner Mei- 
nung sein, daß wir die GENIE 
DATA existenzfähig halten müs- 
sen, was uns nur bei kostendek- 
kender Herstellung möglich ist. 
Der Verkaufspreis der GENIE 
DATA beträgt aus diesem Grund 
ab Heft i, Jahmann 2, DM 8,50 + 
DM 1,40 Versandkosten für die Zu- 
sendung in's Haus. Das sind bei 
einem Jahresabo (6 Ausgaben) 
DM 59,40. 

Als besonderer Anreiz für Neu- 
abonnenten sei gesagt: 

Ab der Ausgabe 2/84 {also 
die nächste Ausgabe der GENIE 
DATA) legen wir bei jedem Abo, 
welches wir Ihnen zusenden, 12 
gedruckte Seiten, von der aller- 
ersten Ausgabe Heft Nummer 1, 
Jahrgang 1, bei. Dann werden wir 
zu jeder weiteren Ausgabe solan- 
ge 12 Seiten von der Erstausga- 
be 1983 beilegen, bis Sie als 
Abonnent die ganze Ausgabe 
1/83 zusammen haben. Sollte 
es in Ihrem Interesse liegen, auf 
diesem Wege auch die Nummer 
2/83 zu erhalten, schreiben Sie 
uns! Da wir Ihnen diesen Sonder- 
Service bieten, werden wir natür- 
lich den Sonderband der Nummer 
1 und zwei nicht auflegen. 

Für die Abonnenten von 1983 
sei gesagt: 

Für die Monate in denen Ihr 
altes Abo noch läuft, zu dem alten 
Preis, werden wir Ihnen jeweils 
bei Abo-Zusendung auch die 12 


Blätter von der Nummer 1/83 
für einen Preis von DM 3,50 
pro Ausgabe, zusenden. Zählen Sie 
bitte die Ausgaben zusammen, die 
Sie noch bis zum Auslaufen Ihres 
Abo's haben, und überweisen Sie 
uns bitte pro Ausgabe DM 3,50 
auf Postscheck Heinz Hübben, 
Kto.-Nr. 242072-606, Post- 
scheckamt Frankfurt/Main. 

Das heißt also: 

Haben Sie von Ihrem 1983er Abo 
z. B. noch vier Ausgaben gut, 
dann senden Sie uns in einem 
Betrag vier mal DM 3,50. Wir le- 
gen Ihnen dann automatisch auch 
in Ihr Abo-Heft die Nachdrucksei- 
ten von Heft 1/83 bzw. Heft 2/83. 
Sehen Sie, bisher wurde die 
GENIE DATA aus Idealismus her- 
gestellt, nun lassen auch Sie bit- 
te etwas Idealismus walten. 

Zu fachlichen Rückfragen stets 
gern bereit, grüßt Sie mit ver- 
bindlicher Hochachtung: / 

H. Hübben, 

GENIE DATA 


Ein herzliches Dankeschön sage 
ich hiermit allen Inserenten, die 

bisher schon in der GENIE DATA 
inseriert haben und den Lesern 
dadurch günstige Kaufangebote ge- 
macht haben. Nun noch ein paar 
Sätze an die Computer-Fachge- 
schäfte: Bieten Sie in einem In- 
serat in der GENIE DATA Ihre 
Ware an. Unsere Leser werden es 
Ihnen danken indem sie bei 
Ihnen kaufen. Denn dadurch, 
wenn alle GENIE DATA Händler 
inserieren, hat der Kunde, unser 
Leser, ein Kaufangebot von der 
ganzen BRD, Schweiz und Öster- 
reich. Wir, der Verlag, können 
durch diese Einnahmen die 
GENIE DATA komfortabler und 
umfangreicher gestalten. 

MACHEN SIE ALLE MIT! 

Die nächste Ausgabe der GENIE 
DATA soll den Erfolg zeigen! 
Schicken Sie uns bitte umgehend 


Ihre Inseraten -Wünsche zu, denn 
die nächste GENIE DATA wird 
pünktlich erscheinen! 

Dann haben wir noch etwas: 

Ab der nächsten Ausgabe der 
GENIE DATA gibt es eine ständig 
erscheinende Rubrik 



WER -WAS- WO- Einkaufsführer. 

Dieser WER-WAS-WO-Einkaufs- 

führer soll mehrere Seiten haben 
und von Aachen bis Xanten 
(von der ganzen BRD) alle Com- 
puterfachgeschäfte für die Genie- 
und TRS-80 -Familie erfassen. 

Also: Wir fangen an bei Aachen 
und drucken jeweils die Stadt, wo 
sich Ihr Geschäft befindet, fett 
über Ihr Werbeinserat. Das Inserat 
soll beinhalten: Ihren Namen, 
Geschäftszweig, Straße, Ort, Tele- 
fon und vielleicht noch Ihr Fir- 
menzeichen. Pro Ausgabe werden 
wir Ihnen dafür nur 
UM 55,- + MWSt, in Rechnung 
stellen, bei eventuell anfallenden 
Satzkosten eine einmalige Gebühr 
von DM 15.- + MWSt. Verwenden 
Sie bitte bei Bestellung 
und ich hoffe, daß Sie alle dabei 
sind, die Bestellkarte auf Seite 
13 und 14 in diesem Heft. Diese 
Anzeigen sollten für ein Jahr be- 
stellt werden (also für 6 Ausgaben) 
und Sie erhalten dann einen Ra- 
batt von 10%. 

So, liebe Geschäftsfreunde, hel- 
fen auch Sie so mit, die GENIE 
DATA komfortabler zu gestalten 
und unseren Lesern diesen Ser- 
vice zu bieten, denn ich bin 
sicher, sie werden es Ihnen dan- 
ken. 

Wenn nun alle mitmachen, hat 
die GENIE DATA gleich ein 
neues Gesicht und kann sich 
weiter entfalten, was ja im In- 
teresse aller liegen dürfte, der 
Leser und der Inserenten. 

Frdl. Grüße, 

(/* • l/'V-'- — -l 

H. Hübben, 

GENIE DATA 

Also, ab die Post, wir erwarten 
umgehend Ihr Inserat! 


DIE 

GENIALE 

KOMBINATION 

Textverarbeitung und Datenverwaltung 
für Colour Genie 


PROSA Profi Textverarbeitung (32 K ) DM 145,- 

Fließtext, Blocksatz auf dem 
ßildschirm, Spooling 

DAVE Daten-Verwaltung (32K) DM 58, 

Beliebige Daten (z B. Adressen oder 
Termine) erfassen, ändern, auswerten, 
sortieren und drucken. 

Zusammen mit PROSA Serienbriefe 

TEDI Text-Editor (16KI DM48,- 

125 Zeichen/Zeile, Umlaute 

Alle Programme für Cassette UND 
Diskette geeignet! 






Spezialist für Floppy-Disk Auf- und Umrüstungen 
Wir führen Loutwerke von EPSON, TANDON und TEAC. 
Wir produzieren Erweiterungen für: 

Tandy, Genie, Epson, Sanyo u.o. CP/M-Computer. 
z.B.: 

1 Slimllno-Laufwerk 5.25 , double-density, 80-Spur dop- 
pelseitig, 1MB, 3ms, mit Gehäuse und Netzteil DM 998,— 


Ein Beispiel für unser Computer-Tuning: 
wir zaubern In don Sanyo MBC-1 100 2 - 624kByto 
Diskcttenplatz und liefern ihn mit Wordstar. Mallmergo. 
Calcstar und Inlostar für sage und schroibo DM 6995,— 


. . . und das wird unser Schlager für 1984: 

AKKU-botricbonc Floppy- Disk Station 

3.5' /800k Byte/ CP/M -compatibel zum direkten Anschlu8 
an joden Computer mit RS-232-Schnittstelle! 
z.B.i EPSON HX-20, TANDY Modell 100, etc. 


Dipl. -Ing. Anton Kirchner 

GrabenttraUe 90 und Finkonsiraßo 5 
4100 Duisburg 1 
r.-',: 0203/372128 u. 376165 — Tolcx 855631 


lÄI I'- H 


K.-H. Offenhäuser 
Hauptstraße 113 
6901 Gaiberg 


Software-Technologie & 
Anwender Beratung 
Tel.: 06223/40323 




Verwenden Sie b«ltc bei Bestellungen odei Kontakt du!njhmcj 

d.c GEN lE'DA FA-KONTAKTKARTE. auf Sfc.tö 1 3/14 in diesem Heft. 


LITERATUR 

Programmieren ln FÖRTH, Belspiele/Anwendungen, 2., neu 
bearb. Auflage 19S3, 176 S. , 32 Abb. EM 46,80 

FORTH-Handbuch , Tips & Tricks fuer den Anwender, 

1. Auflage 19S3, 132 S., 28 Abb. DM 46,80 

rORTH-Arbeltshilfen, Auflistung und Erklaerung aller 
in FORTH Implement. Worte (deutsch) DM 19,80 

Fachzeitschriften fuer: TRS-80 / Video Genie 
AIM-65 / PC-1CC 

Erscheinungsweise Zweimonatlich, Preis je DM 6,00 

SOFTWARE 

FCTOH-Compller fuer versch. Mikroccnputer ab DM 165,00 

EPRCM-Progranriergeroet f. 2716/32/64 , 8743/49, inkl. 
Software ( Z-80 > ab Df-5 290,00 


verwenden Sie biltcJ 
d.e GENIE-DATA-W 


Verwenden 5ie r 
die GEN IE -DA, 1 
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die GENIE-DA 


Verwenden Sie D| .c b' ' ‘ ' . . 1' 

d.c GENIE-OAT/1 
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Verwenden Sie ü tie bei Beitel ungen oder Kontaktaufnahme 

die GENIE- DATA- KONTAKTKARTE auf Seite 13/14 in ü-esem Heft. 










ASSEMBLER - TEIL 2 

Weiter geht es mit unserem Assembler- Kurs 
von T. M. ßinzinger 


VIDEO DATEI 

Eine Datei für Ihre Video Filme mit 
allem Komfort, für Colour Genie 
mit Disketten Laufwerk 


DISKETTEN KNACKER 

Wer schon einmal versucht hat auf dem 
Genie 1 1 1 fremde Disketten zu lesen, weiß 
wieviel Arbeit es macht, die richtige Ein- 
stellung zu finden Unser Disketten- 
knacker hilft Ihnen. 


Unsere Service-Karten finden Sie 
diesmal ab Seite 


SELBSTBAU JOYSTICK 

Wer weiß, wie teuer die Original 
Joysticks zum Colour Genie sind, 
wird sich über diesen Artikel freuen ! 


ZAHLENDARSTELLUNG 

Wissen Sie eigentlich, wie Ihr Genie 
intern Zahlen darstellt und verarbeitet? 
Nein ! Dann sollten Sie sich ausführlich 
mit diesem Artikel beschäftigen 


Seite! 6 


LISTSCHUTZ 

Dieses Programm schützt Ihre Colour 
Genie Programme vor unerwünschtem 
Auf listen. 


COLOUR-GENIE COLOUR-GENIE 


COPBIT 


NEU! 

N. Heicke, L. Röckrath: 

ROM-Lisiing 

• vollst. disassembliert und kommentiert 
(OOOOH-3FFFH) 

• RAM-I/O-Adressen 

• neueste Version! 

• Bildschirmformate. Speicheraufteilung 

• genaue Unterprogrammerklärungen 
für den Programmierer 

• Ein absolutes Muß für jeden Anwender 

für nur 59 DM (inkl. 7% MwSt.) 


Eine neue Dimension: 

Bildschirmeditor (SEDIT) 

Sprengen Sie endlich die Fesseln des EDIT- 
Befehls und bewegen Sie sich völlig frei über 
den Bildschirm und lügen Sie ein oder löschen 
Sie, wo Sie wollen. DM 39.- 

Auch tür Disk-Systeme aul Disk DM 49.- 

Noch nicht überzeugt? 


Kassettenkopierprogramm 

Sichern Sie Ihre wertvollen 
Programme mit COPBiT! 

COPBiT kopiert praktisch alle BASIC- 
und Maschinenprogramme und auch 
geschützte Formate, denn COPBIT ko- 
piert unabhängig vom Format bitweise. 
Verify-Funktion zum Überprüfen der 
Kopien. 

COPBIT kostet nur 39.- DM 


völlig unverbindlich gegen DM 2- Schutzge- 
bühr in Briefmarken anfordem. (Auch für DISK- 
User). (Alle Preise inkl. 14 % MwSt.) 


(inkl. MwSt.). 


L. Röckrath 

Noppiusstraße 19, 5100 Aachen 
Telefon (02 41) 3 49 62 


L. Röckrath 

Noppiusstraße 19, 5100 Aachen 
Telefon (02 41) 3 49 62 


Nopoiusstraße 19, 5100 Aachen 
Telefon (02 41) 3 49 62 


Verwenden Sie Bitte bei Bestellungen oder Kontaktaufnahme 

die GENIE-DATA-KONTAKT KARTE auf Seite 13/14 In diesem Heft 


MAZE MAN 

Ein faszinierendes Video-Spiel, 
komplett in Maschinensprache, daher 
sehr schnell ! Ein Riesenspaß für alle 
Colour Genie Besitzer! 

Seite 26 

SIEBZEHN UND VIER 


Das bekannte Casino-Spiel für Sie! 
Nur schade, daß der Computer die 
Gewinne nicht ausbezahlt! 

Seite 32 

TOOLKIT 

Jetzt geht es los! Zehn brandneue 
Basic-Befehle für Genie 1, II und III. 

Sie werden sehen : Obwohl das eingebaute 
Basic recht gut ist kann man es noch 
erweitern ! 

Seite 35 

NEUER ZEICHENSATZ 

Wie baut man in ein Genie 1 oder II 
einen völlig neuen Zeichensatz ein? 

Die Antwort auf diese Frage finden Sie 
in diesem Artikel ! 

Seite 41 






Thomas M. Binzinger 


Assembler -Teil II 


Hallo Leute! Hier ist der zweite 
Teil des Assembler-Kurses, aber 
bevor es weiter geht, erst einmal 
die Auflösung der Testfragen vom 
ersten Teil : 

1. Der Hauptvorteil ist die Ge- 
schwindigkeit von Assembler, 
der Hauptnachteil die schwere 
Erlernbarkeit, bzw. wenn man 
schon Assembler kann, die Spei- 
cherplatzaufwendigkeit man- 
cher Programme. 

2. Die Zahlen im Speicher stel- 
len für den Computer die Be- 
fehle dar. 

3. Ein Assemblerprogramm ver- 
braucht mehr Speicherplatz als 
ein gleichwertiges Basic- 
programm. 


4. Das Assemblerprogramm ist aber vorher müssen wir noch et- 

aber schneller. was Theorie pauken, damit ihr 

5. Jeweils in Zeile 5 des zwei- meine Erklärungen überhaupt ver- 
ten Beispiels steht der Code stehen könnt. 

der den Bildschirm weiß an- Sicher weiß jeder Computerbe- 
malt, denn die Zahlen in der sitzer wieviel Speicherplatz seine 
Data-Zeile stellen ein Maschi- Maschine hat, ob 16K, 32K oder 
nenprogramm dar. 48K. Aber weiß auch jeder was 

Wenn Sie mehr als eine Frage das bedeutet? Hier die Erklärung : 
falsch beantwortet haben, dann Das "K" hinter der Zahl bedeutet 
sollten Sie sich den ersten Teil Kilo, also Tausend. Wenn wir ei- 
auf jeden Fall noch einmal durch- nen Computer mit 16K haben, 
lesen, um sicherzustellen, daß Sie dann hat dieser 16.000 Speicher- 
alles verstehen können, was in die- stellen verfügbar. Nun heißt es 
ser Folge vorkommt. aber manchmal 16K ROM, 16K 

Am Ende der ersten Folge hat- RAM. Was hat es damit auf sich? 
te ich versprochen, das Geheimnis Die Bezeichnung ROM kommt 
des zweiten Beispiels zu lüften, (wie beim Computer ja so vieles) 
und das werde ich auch gleich tun, aus dem Englischen: Read Only 


Unser bewehrtes TeMtveranbBltungaprogr*mm 
jetzt in neuer, erweiterter F aasunQ 


Leichter Zugriff zu Te« tabschnitton durch 
blockweise» Erfassen — F armularvorirbultuno 
Stichwortspeicher — selbstdefinierte Zeichen, 
z.3. tö — schnellste Einarbeitung 
Neu; blockweise» Einlesen 


Dazu Jetzt au» unserem Hause NEU 


Dateiverwaltung 495 


Mehr Als nur eine AdreesdAtei 
schneller Zugriff durch IndBiivsrwiltung 
Einfache Handhabung wie beim Karteikasten 


Rechnen im Test, Autom. MwSt — Berechnung 
Bedienung einfach wie beim Taschenrechner 


Datei & Kalkül 

& Umtausch 3,0 695 


Beide Programme sind in unser GENIE— TEXT 
integrierbar. Daher einfache Bearbeitung 
von Serienbriefen — problemlose» Erstellen 
von Rechnungen und Angeboten. 


Alle Genie 1.11,111 und TRS 6>0 I.III 
Körnte» und Speedmaster 


MCS ZENDER 


Verwenden Sie Ditto bei Bestellungen oder Kontaktaufnohme 

die GENIE-DATA-KONTAKTKARTE auf Seite 13/14 ln diesem Heft. 


Memory, auf Neudeutsch: Nur- 
Lese-Speicher. In einen ROM-Spei- 
cher kann man also keine Werte 
hineinschreiben, man kann nur 
nachschauen, was schon drin 
steht. In diesem Speicher stehen 
Programme, die immer im Com- 
puter sein sollen, gleich vom Ein- 
schalten an, den die Werte die in 
der Fabrik in ein ROM hinein- 
geschrieben wurden, gehen spä- 
ter auch beim Ein- und Ausschal- 
ten des Computers nicht ver- 
loren. 

Im Gegensatz dazu stehen 
RAM's, Random Access Memorys 
übersetzt etwa: Speicher mit wahl- 
freiem Zugriff, oder besser: 
Schreib-Lese-Speicher. Aus RAM's 
kann man also nicht nur lesen, 
sondern man kann auch hinein- 
schreiben. Der Nachteil ist, das 
RAM's von der Stromzufuhr ab- 
hängig sind, und alle Programme 
und Daten verloren gehen, wenn 
der Computer ausgeschaltet wird. 
Bei einem Computer mit 16K 
ROM und 16K RAM hat man al- 
so 16.000 Speicherplätze, aus 
denen man nur lesen kann, und 
16.000 Speicherplätze in die man 
auch noch schreiben kann. 

Bei 16.000 Speicherstellen kön- 
nen wir 16.000 mal eine von 256 
verschiedenen Zahlen speichern, 
oder eines von 256 verschiede- 
nen Zeichen, wie Buchstaben, 
Ziffern und Grafikzeichen. 

Wieso gerade 256? Das hängt 
mit dem Aufbau der einzelnen 
Speicherstelle zusammen. Allge- 
mein bekannt ist ja inzwischen, 
daß ein Computer nur zwischen 
Strom und kein Strom unter- 
scheiden kann, also praktisch nur 
zwei Zahlen kennt, nämlich 0 
(= kein Strom) und 1 (= Strom). 
Das ist etwas zuwenig zum Rech- 
nen, aber wie können wir grös- 
sere Zahlen verarbeiten? Die Ant- 
wort lautet Code! Wir bilden 
einen Code aus mehreren Nul- 
len bzw. Einsen. Jede 0/1 nennt 
man ein Bit. Unser Code besteht 
aus 8 Bit. 

Jedes Bit kann entweder an oder 
aus sein. Wenn wir acht Bit hin- 
tereinander hängen, sieht das so 
aus: 01001110 oder 11111110 
oder 00000000 etc. 

Diese acht Bit nennen wir ein 


KURSUS 


GENIE 




cc Computer Studio GmbH 
Elisabethstraße 5 
4600 Dortmund 1 
Tel.: 02 31-52 8184 
Tx 822 631 cccsd 


COMPUTERSYSTEME 


GENIE III 

64 KB RAM, 2x720 KB Disk-Speicher, 

Bildschirm 64x16 oder 80x24 Zeichen. TRS-80* 

Mod. 1 kompatibel 

CP/M* fähig 6900,- 

GENIE I 

64 KB RAM, Microsoft-BASIC, Bildschirm 64x16 
Zeichen, Level IV ROM, TRS-80* Mod. 1 
kompatibel 998,- 

NEU: TANDY MODELL 100 ab 1850.- 

COLOUR GENIE 

Neueste Version mit Meßinstrument I 
16 KB RAM, Microsoft-BASIC & Grafik, 16 Farben 
auf Ihrem Farbfernseher, TRS-80* Mod. 1 
BASIC kompatibel 570,- 

dto. mit 32 KB RAM 625,- 

* TRS-80 ist eingetragenes Warenzeichen der Tandy 
Corp. «CP/M ist eingetragenes Warenzeichen von Digital 
Researcn. 


Slim Line Laufwerk, 40 Track, SS/DD, 

250 K-Byte Speicherkapazität 625,-- 

Slim Line Laufwerk, Doppelfloppy, kompl. 
mit Gehäuse, Netzteil u. Kabel 1499,- 

Andere Laufwerke und Kapazitäten auf Anfrage 
lieferbar. 

Floppy Disk Controller für Video Genie und Tandy 
(double u. single density) incl. Drucker Interface und 
2 cc 400 Disk, im Gehäuse mit Netzteil und Kabel; 
voll Software kompatibel zu 

Tandy TRS-80* 2140,- 

Expansion Interface für TRS-80* incl. 32 K RAM 925,- 
Double Density Controller für Tandy und 
Video Genie 198,- 

16 K Erweiterung für Colour Genie incl. Einbau 79,- 

Star Drucker Gemini-lOX, 120 Z/sec, 

1920 Pkt. pro Zeile 1098,- 

Zenith Monitor grün o. bernstein entspiegelt 319,- 
Datenrecorder 6019 (bitte Datenblatt anfordem) 149,-- 


BASF Disketten, Qualimetrik, 10 Stück 49,- 

Verbatim Disketten mit Verstärkungsring 
10 Stück, DD, mit Archivbox 79,- 

Datencassette C 20 3,30 

Farbbänder für: ' 

Tandy Line Printer I, II u. IV je 15.-- 

Tandy Line Printer III u. V je 19,50 

Tandy DW II je 17,- 

Epson MX 80 je 19,- 

Itoh 8510, 1550 je 20.-. 

Oki Microline, Star je 9,50 

Rest auf Anfrage. 

Alle hier angebotenen Produkte sind ab Lager lieferbar. 
Alle Preise incl. Mehrwertsteuer. 



NEU: 12 Sellen Colour Genie Softwarellste 
kostenlos anfordorn I 

Wir suchen ständig neue Programme 1 Ur Colour Genie I 
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Byte. Und mit diesem Byte kön- 
nen wir 256 verschiedene Zahlen 
darstellen. Wie? Ganz einfach, 
wir ordnen jedem Bit einen Zah- 
lenwert zu, den es entweder hat, 
wenn es an ist, oder den es nicht 
hat, wenn es aus ist. Wir sagen 
ganz einfach ; 

Das Bit ganz rechts hat den Wert 
1 wenn es an ist, sonst den Wert 0. 
Das nächste Bit hat den Wert 2 
wenn es an ist, sonst den Wert 0. 
Das folgende Bit hat den Wert 4 
wenn es an ist, sonst den Wert 0. 
Und so weiter, bis.., 

Das Bit ganz links hat den Wert 
128 wenn es an ist, sonst den Wert 
0. Das ganze ist in Bild 1 an- 
schaulich dargestellt. 


Wenn wir jetzt den Wert 129 
darstellen wollen, schalten wir das 
Bit ganz links, und das Bit ganz 
rechts an. Das sieht dann so aus: 
10000001. Und da 128 + 1 gleich 
129 ist, haben wir unsere Zahl! 
Mit 130 geht es genauso: 

Das Bit links aussen an, und das 
vorletzte rechts: 100000010. Da 
das vorletzte Bit den Wert 2 hat, 
haben wir 128 + 2 = 130! Natür- 
lich können wir auch mehr als 
zwei Bits einschalten, z.B. 
10000011 = 128 + 2+1 = 131. 
Wenn wir alle Bits einschalten, 
haben wir die größte darstell- 


bare Zahl, 255! Versuchen Sie 
einmal, verschiedene Bits in Bild 1 
mit dem Bleistift "ein und auszu- 
schalten'', und so verschiedene 
Zahlen zu bilden. So, und jetzt 
noch schnell ein Schlußspurt, be- 
vor wir eine Pause einlegen. 

Sie werden sagen, schön und 
gut, in einem Byte (= 8 Bit, = eine 
Speicherstelle) können wir also 
256 verschiedene Zahlen darstel- 
len, aber was ist mit Buchstaben 
und Zeichen? Auch hier benutzen 
wir zur Lösung des Problems ei- 
nen Code. Wir sagen ganz ein- 
fach : Der Buchstabe "A" hat den 
Wert 65, der Buchstabe ''B 1 ' den 
Wert 66 etc. Das heißt, wir weisen 
jedem Zeichen eine bestimmte 


Zahl zu. Colour Genie Besitzer 
können auf Seite 123 ihres ''Co- 
lour-Basic-Leicht-Gelernt"-Hand- 
buches nachschlagen, dort stehen 
die Zahlen für alle Zeichen, bei 
Video Genie Benutzern steht es 
auf Seite 84 des grünen Handbu- 
ches. 

So, jetzt machen wir erstmal 
eine Pause, holen Sie sich einen 
Kaffee, essen Sie etwas (aber 
bitte keine Flecken auf die GENIE 
DATA machen), oder spielen Sie 
Ihr neuestes Computerspiel, damit 
Sie sich etwas erholen, und all das 
Wissen einsickern kann... 


So, da sind Sie ja wieder. Na 
fein, dann wollen wir uns gleich 
wieder ins Vergnügen stürzen, wo 
Sie jetzt doch so schön erholt aus- 
sehen. 

Der Wert in der Speicherstelle 
kann nämlich noch mehr bedeu- 
ten, denn irgendwo muß ja auch 
stehen, was der Mikroprozessor, 
das eigentliche Gehirn unseres 
Computers (bei CG, VG oder 
TRS-80 heißt er übrigens Z-80) 
tun soll, und das steht - richtig, 
im Speicher! 

So kennt unser Mikroprozessor 
auch über 700 Befehle. Sie beste- 
hen aus einem oder mehreren 
Bytes (Zahlen). Wenn in einer 
Speicherstelle 65 steht, kann dies 
einfach eine Zahl sein, oder diese 
Zahl kann den Buchstaben "A" 
darstellen, oder sie kann als Be- 
fehl das B-Register mit dem In- 
halt des C-Registers zu laden, 
angesehen werden (Was Register 
sind kommt in der nächsten Fol- 
ge, aber in der GENIE DATA Nr. 
4, Seite 14 steht auch was darü- 
ber). 

So weit, so gut. Aber wie un- 
terscheidet der Mikroprozessor 
jetzt, um was es sich handelt? 

Er kann es garnicht unterscheiden! 
Für ihn steht dort eine Zahl, und 
die ist für ihn immer ein Befehl, 
ganz gleich als was wir es an- 
sehen. Trotzdem können wir Text 
und alle möglichen Zahlen in den 
Speicher schreiben, ohne das der 
Computer, oder besser die CPU 
(= Central Processing Unit = Zen- 
trale Verarbeitungs Einheit = der 
Mikroprozessor) denkt es wären 
Befehle, und irgendwelchen Un- 
sinn macht. Sie arbeitet nämlich 
immer nur die Befehle ab, an 
einer bestimmten Stelle im Spei- 
cher, und zwar an der Stelle, die 
wir ihr sagen. Wie wir ihr das sa- 
gen, das kommt später noch. 
Wir brauchen nur die Daten oder 
den Text an eine andere Steile 
im Speicher zu setzen, als die, 
an der die CPU arbeitet ! 

Jetzt machen wir noch eine 
Pause, damit Ihr über all das nach- 
denken könnt, und weil mir die 
Finger vom Tippen schon weh 
tun. 

Laden Sie jetzt Ihren Assemb- 


Wir haben die deutschen 

ROM-Listings 

für 

TRS-80 Model I, Genie l + ll 69,50 DM 

TRS-80 Model III 79,— DM 

Colour-Genie 59,— DM 

Alle vollständig dlsassembliert und kommentiert mit 
Unterprogrammerläuterungen, RAM und 1/0-Adressen, 
Cassettenformaten, . . . 

Luidger Röckrath 

Noppiusstraße 19, 5100 Aachen, Telefon (0241) 34962 
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Bild 1 : Wertigkeiten der einzelnen Bits 


Verwenden Sie bitte bol Bestellungen oder Kontaktaufnahme 

die GEN1E-DATA-KONTAKTKARTE auf Seite 13/14 In diesem Heft. 
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ier in den Computer ein. Ab jetzt 
werden wir mit Assemblerpro- 
grammen arbeiten. Wie Sie die ein- 
geben und übersetzen müssen, 
hängt von dem jeweiligen As- 
sembler ab, mit dem Sie arbeiten. 
Beim TCS Colour Assembler müs- 
sen Sie den Assemblercode z. B. 
im Basic eingeben, doch viele an- 
dere Assembler, wie z. B. der von 
Tandy, haben einen eigenen Edi- 
tor zum Eingeben dieses Codes. 
Auch die Befehle, wie man den 
Übersetzungsvorgang in die Zahlen 
die die CPU verstehen kann, star- 
tet, ist von Assembler zu Assemb- 
ler verschieden. Beim Colour As- 
sembler wird der Übersetzungs- 
vorgang mit "NAME" gestartet, 
bei dem Assembler von Tandy mit 
”A". Wie Sie also die hier abge- 
druckten Programme eingeben 
und übersetzen müssen, entneh- 
men Sie bitte der jeweiligen An- 
leitung, 

Alle Programme werden in dem 
folgenden Format abgedruckt : 
Zeilennummer 

Freiraum oder Sprungmarke 
Befehl 
Freiraum 
Argumente 

Der Aufbau der Assemblerzeile: 
Zuerst kommt die Zeilennummer. 
Sie hat aber im Gegensatz zu 
Basic überhaupt nichts mit dem 
Programm zu tun. sie dient nur 
der Editierung. Wenn wir uns in 


einer Zeile vertan haben, müssen 
wir deren Zeilennummer angeben, 
um den Fehler korrigieren zu 
können. 

Als nächstes kommt entweder ein 
Freiraum oder eine Sprungmarke. 
In der Maschinensprache gibt es 
Befehle, die (ähnlich dem GOTO 
in Basic) die CPU veranlassen, an 
einer bestimmten Speicherstelle 
weiterzuarbeiten. Dieser Befehl 
heißt JP, Abkürzung für Jump, 
springe nach (im Speicher übri- 
gens die Zahl 193). Dahinter 
schreiben wir wo weitergemacht 
werden soll, nämlich eine Zahl für 
die Adresse im Speicher oder ei- 
nen Label, eine Sprungmarke, der 
eine Zahl darstellt. Wenn wir ei- 
nen Label benutzen, errechnet der 
Assembler die Zahl für uns. Ei- 
ne Sprungmarke (Label) müssen 
wir also immer in die Zeile schrei- 
ben, die wir anspringen wollen. 


Ein Label besteht aus maxi- 
mal 6 Buchstaben oder Ziffern, 
aber das erste Zeichen muß im- 
mer ein Buchstabe sein. Das haben 
Sie vielleicht jetzt noch nicht ganz 
verstanden, aber keine Angst, das 
Verständnis kommt noch bei un- 
seren Programmbeispielen. 

Als nächstes muß in der Zeile 
ein Befehl stehen. Dieser Befehl ist 
ein kurzes Wort, daß das der As- 
sembler in die richtige Zahl über- 
setzt (daran denken: Zahlen sind 
für die CPU Befehle!). Die meisten 
Befehle haben aber noch Argu- 
mente, und diese müssen dann in 
der nächsten Spalte stehen. Da- 
nach ist dann noch Platz, wo man 
einen Kommentar mit ; anhän- 
gen kann (wie REM in Basic). 

Als praktische Übung geben 
Sie jetzt folgendes Programm in 
Ihren Assembler ein. 

Für Colour Genie: 

;Hier startet das Programm 


10 ORG 7FOOH 

20 Start LD HL.4400H 

30 LD DE, 4401 H 

40 LD BC.3FFH 

50 LD (HL), 202 

60 LDIR 

70 JP 66H 

80 END START 


und assembl Sie es mit 
NAME/TM. 

Und hier das Programm für Vi- 
deo Genie / TRS-80 : 


HOBBY-TRONIC IN DORTMUND * HOBBY-TRONIC IN DORTMUND * HOBBY-TRONIC IN DORTMUND 


ACHTUNG! 



HOBBY-TRON »C IN DORTMUND 
vom 23. bis 26. F e b r u a r 1984 


Wir haben erweiterte Öffnungs-Zeiten ! 
Bitte fordern Sie von uns kosten los 
einen S T ADT-PLAN an 


TW 



cc Computer Studio GmbH 
Elisabethstraße 5 
4600 Dortmund 1 
Tel.: 02 31-52 81 84 
Tx 822 631 cccsd 
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10 

ORG 

20 Start 

LD 

30 

LD 

40 

LD 

50 

LD 

60 

LDIR 

70 

JP 

80 

END 


Assemblierer! Sie es, speichern Sie 
es dann auf Disk/Cassette ab, la- 
den Sie es dann und führen es aus. 
Na, was macht das Programm? 
Es schreibt den Bildschirm weiß! 
Es ist das Programm, das wir mit 
dem zweiten Beispiel der ersten 
Folge in den Speicher geschrie- 
ben hatten. Die Zahlen in Zeile 5 
stellten dieses Programm dar! 

In der ersten Zeile steht ein 
merkwürdiger Befehl, ORG. Das 
hört sich vielleicht etwas komisch 
an, kommt aber von einem eng- 
lischen Wort, das soviel wie Ur- 
sprung bedeutet. Die Zahl hinter 
ORG gibt an, an welcher Stelle im 
Speicher das Programm beginnen 
soll. ORG ist kein Maschinenspra- 
chebefehl, sondern eine Anwei- 
sung an den Assembler! Von ihr 
steht hinterher nichts im Speicher, 
sie ist nur dazu da, damit der As- 
sembler weiß, an welcher Stelle 
im Speicher das Programm begin- 
nen soll. 

In der nächsten Zeile steht 
dann ein Label, nämlich 
"START", und die Anweisung 
"ID HL.4400H" bzw. "LD HL, 
3COOH". LD ist die Abkürzung 
für Load, lade mit. HL ist ein Re- 
gister, und es wird mit der Zahl 
4400H/3C00H geladen. Was ein 
Register ist kommt in der näch- 
sten Folge. 

Jet 2 t eine Aufgabe für Sie : 

Was bedeuten wohl die beiden 
nächsten Zeilen? 

Dannach kommt noch ein wei- 
terer Lade-Befehl, aber was heißt 
"(HL), 202"? 

Es heißt: Lade die Speicher- 
stelle, deren Adresse in HL steht, 
mit der Zahl 202. In Zeile 20 ha- 
ben wir HL mit der Zahl 4400H/ 
3C00H geladen, und jetzt schrei- 
ben wir 202 in die Speicherstelle, 
deren Adresse in HL steht, also 
in 44O0H/3COOH. Kapiert? Wir 
schreiben 202 in die Adresse 


7F00H 
HL.3C00H 
DE.3C01 H 
BC.3FFH 
(HL), 191 

66H 
START 

4400H/3C00H ! 

Der nächste Befehl, LDIR, ist 
noch ein wenig kompliziert für 
den Anfang, so sei hier erneut 
auf die nächste Folge verwiesen. 

Dann kommt unser alter Be- 
kannter, der Befehl JP (springe 
nach). Er sagt der CPU, daß sie 
an Adresse 66H weitermachen 
soll, und das ist im Basic, so daß 
wieder "READY" erscheint! 

Der letzte Befehl, END, sagt 
dem Assembler, daß das Pro- 
gramm hier zu Ende ist. Es ist nur 
eine Hilfe für den Assembler, ge- 
nauso wie ORG. Das "START" 
dahinter gibt an, wo das Pro- 
gramm später gestartet werden 
soll, nämlich am Label "START" 
in Zeile 10. 

Der erste Befehl der später sus- 
geführt wird, ist "LD HL, 

Sie kennen jetzt zwar den 
grundsätzlichen Aufbau eines As- 
semblerprogramms, und einige Be- 
fehle, aber die genaue Arbeits- 
weise des Programms können Sie 
noch nicht verstehen, und obwohl 
die Versuchung groß ist, Ihnen 
auch das noch jetzt zu erklären, 
haben Sie bestimmt jetzt die Na- 
se voll, und ich habe auch schon 
mehr Platz verbraucht, als ich ei- 
gentlich sollte. Deshalb machen 
wir hier für dieses mal Schluß, und 
nur noch ein kleines Experiment 
zum Abschluß. 

Löschen Sie Zeile 50 und fügen 
Sie ein: 

50 LD A,R 

60 LD (HL),A 

und ändern Sie Zeile 70 in : 

70 JP START 

assemblieren Sie das Programm 
und sehen Sie mal was passiert ... 

Hier noch die Testfragen : 

1. Kann man die Zahl 260 in ei- 
nem Byte darstellen? 

2. Malen Sie ein Byte auf, das die 
Zahl 3 darstellt ( in der Form 
00000000 ) ! 


3. Kann man mit einem Bit die 
Zahl 1 darstellen? 

4. Ist ORG eine Anweisung für die 
CPU? 

5. Ist LD eine Anweisung für die 
CPU? 

6. Ist HL,44Q0H ein Argument 
oder ein Befehl? 

7. Warum gehen bei einem ROM 
die Daten verloren, wenn man 
den Computer ausschaltet? 

Vorsicht! Bei den Fragen ist eine 

Falle eingebaut! 


Bis zum nächsten Mal ! 



Programme aus der GENIE DATA 
können Sie relativ schnell und 
sicher in Ihren Computer einge- 
ben, wenn Sie folgendermaßen 
Vorgehen: 

Sprechen Sie sich den Pro- 
gramrntext als erstes auf eine Ton- 
bandcassette. 

Wenn der ganze Text au (genom- 
men ist, spulen Sie zurück und 
schalten auf Wiedergabe. 

Und siehe da : 

Die "Geisterstimme" vom Band 
diktiert Ihnen jetzt haarklein, 
was Sie tippen müssen! 


Die nächste GENIE DATA 
erscheint am 
15. März 1984 pünktlich. 
*•*■»#**#***** 

Anzeigenannahmeschluß 
für Nummer 2/84 
ist der 20. Februar 1984. 

Schicken Sie Ihren Anzeigen- 
auftrag bitte früh genug! 


KLEINANZEIGEN 


KLEIN-ANZEIGEN 

FARBE für TRS 80 I, Video 
Genie I, II: Fertig bestückte 
Zusatzplatine/16 Farben/ 
Eigene Ausgänge für PAL- 
Farbfernseher und Monitor/ 
Softwaregesteuert Zeichen 
auf jeder der 1024 Cursor- 
pos in eigener Farbe dar- 
Stellbar/Kompletter Einbau- 
satz mit Anleitung: DM 
108, -/Rechnertyp angeben/ 
Ausführliche Info: Freium- 
schlag/R. Nenno, Bahnhof- 
str. 22, 6624 Großrosseln 1 

COLOUR-GENIE: Spitzen- 
software EACA-komp. Joy- 
sticks, FX702P: Tuningkit, 
Schach, Sonderzeichen, Li- 
ste 50 Pf. H. Czech, Kölner 
-6, 509 Lev 3. 

COLOUR-GENIE: Joy- 

sticks + Bäng Bäng - 199 
DM, Tel. 06821/77168. Ab 
16 Uhr. 

Suche günstig gebrauchten 
EG 3085 oder Star DP510I 
M. Schuster 07321/41357 
ab 18.00 


Verwonaon Sie Bitte bol Bestellungen oder Kontaktaufnahme 

die GENI E-DATA-KONTAKTKARTE auf Solto 13/14 in diesem Heft. 


Verkaufe: Genie I, Level IV 
Ram 64K mit Drucker - In- 
terface - Ebrom-Brenner. 
Software. Preis VB. Tel 
02384 3909 nach 19.00 

SWL KAUFT FÜR VIDEO 
GENIE II 5 1/4 DISK, DD 
AMATEUERFUNK-PROG. 

G. Scheffler, Breslauerstr. 6 
7750 KONSTANZ 

COLOUR GENIE MASCHI- 
NEN-SPIELE S. SCHULZ 
MARKSIEKH. 1, 4937 

VLOTHO (LISTE geg. 
RÜCKPORTO!) z.B. •Re- 
bell* Super Maschinen Acti- 
on 15,- DM 

Vermiete meinen Computer 

H. Köcher, 1000 Berlin 61, 
Mittenwalder Str. 29 

Prosa-Textverarbeitung von 
H. Roeb, Tannenweg 33, 
5160 Düren 

Hamburger Colour-Genie 
User-Club sucht noch Mit- 
glieder. Kontaktadr. : Th. 
Kolbeck, Trettaustr. 13, 2 
Hamburg 93 


Suche Tauschpartner für 
TRS-80/VG-Programme (16 
k Kassette). Listen an: Man- 
fred Blascheck, Inzersdor- 
ferstr. 111/8/9 A-1 100 Wien 

C. G. User sucht Kontak- 
te und Tauschpartner. R. 
Szklenar, Rathausstr. 28, 
7062 Rudersberg. 

Suche Hard- und Software 
für VG1. Oliver Dippel, Hö- 
henweg 5, 3554 Gladenbach 

Hallo Computerfreaks, tau- 
sche Programme VG I 64K/ 
Cass. + Disk./ Kurt Wagner, 
Viehtriftstr. 77, 6725 Rö- 
merberg 3, Tel.: 06232/ 
83336 

COLOUR-GENIE JOY- 
STICKS, NEU, DM 200. 
TEL 0221/242443 AB 18 
UHR. 


COLOUR GENIE II 
PROGRAMMTAUSCH 
UDO LEM8KE, 2210 ITZE- 
HOE 2, HEIDEWEG 6 


INSERIEREN 
IN DER 
GENIE DATA 
BRINGT 
GEWINN! 


CC H 
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LU 


Vorwondon Sio bltto bei Bestellungen oder Kontaktaufnahme 

die GENI E-DATA-KONTAKTKARTE auf Soitc 13/14 ln diesem Heft. 
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Disketten Knacker 

Disketten-Knacker für Genie III. 

Mit diesem Programm können Sie relativ leicht fremde Disketten bearbeiten, es sucht Ihnen 
nämlich die benötigten Disketten-Parameter. 


Wie Sie sicherlich wissen, kann 
man beim Genie III die Disketten- 
Parameter mit dem Befehl 
DISK Iw = Z 

verändern, so daß es prinzipiell 
möglich ist, Colour Genie, TRS- 
80 und Genie Disketten zu lesen. 
In dem 8efehl bedeutet Iw die 
Laufwerknummer und Z ist ein 
Buchstabe zwischen A und Z. 

So weit, so gut. Aber wenn Sie 
schon einmal versucht haben, eine 
fremde Diskette zu lesen, und 
keine Angaben zum Aufzeich- 
nungsformat hatten, wissen Sie, 
wieviel Arbeit es ist, den richti- 
gen Buchstaben zu finden. 

Diese Arbeit kann nun unser 
Disketten-Knacker für Sie über- 
nehmen. Sie legen einfach Ihre 
DOS Diskette in Laufwerk 
k ' und die fremde Diskette in 
Lau 'erk Eins. Starten -Sie jetzt 
den L. '-etten-Knacker. 

Wenr. 'ie bereit sind zu begin- 
nen, tippt. Sie Return. Das Pro- 
gramm möc l 11 e jetzt gern wissen, 
ob sich auf a, fremden Diskette 
ein DOS befi. et oder nicht. 


Wenn Sie genau wissen, das die 
fremde Diskette ein DOS enthält, 
tippen Sie M. Wenn nicht tippen 
Sie 0. Jetzt geben Sie noch den 
Startbuchstaben ein, mit dem der 
"DISK" Befehl beginnen soll. 
Wenn Sie z. B. wissen, das die 
fremde Diskette mit 80 Spuren 
formatiert ist, brauchen Sie ja 


nicht mit A anzufangen. Anson- 
sten tippen Sie A. 

Jetzt legt der Disketten-Knak- 
ker los. Er probiert eine Einstel- 
lung nach der anderen aus, bis er 
die Richtige gefunden hat. Damit 


Sie nicht die ganze Zeit den Bild- 
schirm im Auge behalten müssen, 
piept das Programm, wenn es die 
richtige Einstellung gefunden hat. 

Tippen Sie jetzt die Break-Taste 
und notieren Sie sich die Einstel- 
lung. Jetzt können Sie die fremde 
Diskette lesen und beschreiben. 

Übrigens kommt es in ganz sel- 


tenen Fällen vor, das der Disket- 
ten-Knacker die richtige Einstel- 
lung nicht findet. Dann ist ein 
Bearbeiten der fremden Diskette 
nicht ohne weiteres möglich. 


Disketten-Knacker 

Anfängen? Tiooen Sie Return'' 

Diskette mit oder ohne SYS? tTiopen Sie M oder 0) ? 11 
Startbuchstabe? A 
Einstellung: Disk 1=E 


1 CLS 

2 PRINT”####### ’t ###################################################### 
#" 

3 PRINT" Disketten-Knacker" 

4 PRINT: PR INT "####♦> ################################################### 
#######" 

5 I NPUT"An-f angen? Tip, ->n Sie Return!": XX 

6 PRINT: INPUT"Di skette >it oder ohne SYS? (Tippen Sie M oder 0) ";X$ 

7 IFX$="M"THENB$="i 1":L'T010 

8 IFX$="0"THENB$="i $1 " : G^TOIO 

9 G0T06 

10 INPUT" Startbuchstabe " ? X$: X=ASC(X$) 

11 DNERRGRGDTQ20 

12 FORI =XT090 

13 AS="Disk 1 =" +CHRS ( I ) 

14 CMDA$: PRINT§£>40, "Einstellung: " ; A$: CMDB$: GOTOIS 

15 NEXTI 

PRINT"Hat leider nicht geklappt!" 

17 END 

IS PR INT "Die gesuchte Einstellung ist: " ; A$ 

19 PRINTCHR$ (7) ; : GQT019 

20 RESUME15 





Volker Hoffmann 


SE LBSTBAU 



Selbstbau 
Joystick 

Wenn es wirklich so schön wäre, Spiele mit einer Tastatur zu spielen, 
dann bräuchten handelsübliche Telespiele oder Video-Automaten 
ja keine Joysticks! Aber es ist halt nicht so schön! 

Auch auf dem Computer machen Spiele mit einem Joystick mehr Spaß. 
Die Colour Genie Joysticks haben nur das Problem, daß sie relativ teuer 
sind und dazu noch inkompatibel zu den meisten Spielen. 

Deshalb hier eine Bauanleitung für preiswerte Joysticks, kompatibel zu 
allen Spielen, die die vier Pfeiltasten und die Leertaste benutzen. 




Geht es Ihnen auch so? Sie verlie- 
ren den Spaß an den besten Co- 
lour Genie Spielprogrammen, weil 
Sie die Spielfigur mit den weit aus- 
einander liegenden Cursor-Con- 
trol-Tasten steuern müssen. Dann 
ist diese Bauanleitung {Bauanlei- 
tung ist eigentlich schon zuviel ge- 
sagt) für Sie genau das Richtige, 

Die Kosten für den Joystick be- 
laufen sich auf ca. 50.-- DM; ist 
der Joystick (Atari, Commodore 
etc.) schon vorhanden, betragen 
die Kosten nur ca. 10,- DM. Der 
einfache Einbau ist deshalb mög- 
lich, weil die vier Cursor-Tasten 
und die Space- (Fire) Taste im 

Signalbelegung: 


Speicher das gleiche Byte bele- 
gen. Die Verbindungsleitungen 
zwischen Keyboard und Haupt- 
platine können problemlos ange- 
zapft werden. 

Der Anschluß des 
Steuerknüppels an das 
Colour Genie 

1 . Benötigte Teile. 

Ein Stecker (Atari kompatibel) 

Ein Gehäuse 

0,3 - 0,5 m 6-Adriges Kabel 

2. Anlöten des Kabels an den 
Stecker . 

Der Joystickstecker hat folgende 
Signalbelegung: 


Nun löten wir das Kabel sauber an 
den Stecker, bevor wir den Stek- 
ker am Gehäuse befestigen, notie- 
ren wir uns am besten die Kabel- 
zuordnung Z B : Links = Gelb, 
Eingang = Weiß usw. 

Jetzt geht es endlich an den An- 
schluß des "Interfaces" an das Co- 
lour Genie. Dazu müssen Sie den 
Computer öffnen (Garantie!). Der 
Joystick wird direkt an die Tasta- 
turleitungen angeschlossen, und 
zwar nach folgendem System : 
Joystick Tastaturleitung 

Rechts 3 

Links 5 

Unten 4 

Oben 1 1 

Fire 12 

Eingang 18 

Kontaktbelegung Keyboard 
(Draufsicht) : 

1 2 3 4 17 18 19 20 

Wir isolieren nun an den ent- 
sprechenden Leitungen ein kleines 
Stück ab und löten das entspre- 
chende Kabel an. 

Das Löten besorgen wir selbstver- 
ständlich ausserhalb des Gerätes. 
Das Kabel führen wir an der Aus- 
sparung für das UHF-Kabel nach 
aussen Danach isolieren wir die 
Anschlußstellen, um Kurzschlüsse 
im Gerat zu vermeiden. 

Der Joystick :St kompatibel zu 
den meisten Solei- und Anwender- 
programmen (z.B. Gorilla oder 
Sound-Editor), bei denen der Cur- 
sor oder die Figur mit den Pfeil- 
tasten gesteuert wird. Unser 
Selbstbaujoystick hat einen klei- 
nen Nachteil: Die Stellung kann 
nicht mit dem Befehl JOY abge- 
fragt werden. Dies wird aber den 
Anwender angesichts des geringen 
Preises sicherlich nicht stören. 


1 2 3 A p 



6 7 8 9 


1 - 6 - 

2 Rechts 7 Eingang 

3 Links 8 — 

4 Unten 9 "Fire" 

5 Oben 
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Andreas Boberach 

Zahlendarstellung 

Das "Computer" Rechner heißt und das dieses Wort aus dem Englischen stammt wissen die Meisten. 

Wie aber der Computer intern Zahlen darstellt, wissen schon weitaus weniger Leute! Und wie es nun 
wirklich funktioniert, können Sie hier nachlesen. 

Im Gegensatz zu den ganzzahligen Variablen, die in zwei Bytes abgespeichert werden und deren Wert sich bei 
Berücksichtigung der Zweierkomplementdarstellung (-32768 bis +32767) leicht ermitteln läßt, ist die Art der 
Abspeicherung der beiden übrigen numerischen Variablentypen (einfach und doppelt genau) nicht so einfach 
zu durchschauen. Sie werden in einer normierten Gleitkommadarstellung vom Rechner abgespeichert: 

Jede Zahl x kann in Exponentialschreibweise dargestellt werden : 

X = M • ßE 

M = Mantisse 
B = Basis 
E = Exponent 

Vom Taschenrechner oder auch vom Video Genie her sind wir gewohnt, mit B = 10 zu arbeiten. Beispiels- 
weise kann 1 .000.000 als 1 E6 = 1 »IO 6 in den Rechner eingegeben werden. 

Die Umwandlungsroutine für die interne Darstellung der Gleitkommazahlen arbeitet mit B = 2: 

X = M*2E , HM<2 

Der Wert des Exponenten E errechnet sich dann 

E = INT (log 2 x ) = INT^ 

In 2 

Im Rechner wird der Exponent als Byte E* nach der Beziehung 

E* = E + 129 — ♦ E = E' - 129 
abgespeichert (keine Zweierkomplementdarstellung). 

Als betragsmäßig kleinste Zahl (E* = 0 , M = 1 ) errechnet sich : 


MIN = 2~ 129 = 1,4693679 * IO -39 . 


Die größte Zahl (E* = 255 , M = 2) lautet : 


MAX = 2 * 21255—129) = 2 * 2 12 6 = 1,7014118 * 1038. 

Insgesamt stehen im Video Genie zur Zahldarstellung für jede einfach genaue Variable 4 Bytes, für jede 
doppelt genaue Variable 8 Bytes zur Verfügung. 

Die Funktion VARPTR (Variable) gibt die Speicheradresse A an, ab der die zugehörige Variable gespeichert 
ist, der Exponent E* steht am Ende dieser fabelle an der 3. bzw. 7. Position (Zählung bei Null begonnen) : 
A* 3 bzw. A +7 . 

Die nächst niedere Speicherstelle enthält in ihrem höchsten Bit eine Aussage über das Vorzeichen der Man- 
tisse : 

MSB = 0 für x>0 
MSB = 1 für x<0 
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Die übrigen Bytes dienen zur Aufnahme der Mantisse. Der Betrag einer einfachen Variablen x s errechnet 
sich dann : 

a+2 a + 1 a 0 

x , = ( 1 + -2 + - + 2 ) . 2 <A*3 - 129) 

s ' 128 128*256 128-256 2 ' 

Das MSB des Inhaltes der Adresse A + 2 (Vorzeichenbit) darf wertmäßig nicht berücksichtigt werden. 

Die doppelt genauen Variablen xd verhalten sich analog zu den einfach genauen : 

a*6 A +5 A +4 A +0 . "t 

= ( 1 + — + — _ + — + + _ \ . 2(A* 7 -129) 

ö 128 128*2561 128*2562 •*' 128*2566 

Die Adresse A + 6 enthält wieder das Vorzeichen der Mantisse. 

Zwei Rechenbeispiele sollen diese Darstellung veranschaulichen: 

1 . Abspeicherung der Zahl x = 5,4 als einfach genaue Variable : 

E = INT JaJSf =2 
In 2 

E* = A +3 = E + 129 = 131 I /////// 

Nun wird die Mantisse aufgeschlüsselt: 


128 * 0,35 = 44,8 
A +2 = INTI44.8) = 44 


256 * 0,8 = 204,8 


A* 1 = INT(204,8) = 204 


256 • 0,8 = 204,8 


{MSB = 0 wegen x>0) 


i in* 


Diese letzte Stelle wird auf A + 0 = 205 gerundet. 


Mit dem folgenden kurzen Programm können Sie die Rechenergebnisse überprüfen: 

10 X = 5.4 

20 P = VARPTR (X) 

30 FOR I =3TO0STEP-1 
40 PRINT I.PEEK (P+l) 

50 NEXT I 

Ergebnis: 


2. Doppelt genaue Variable: X+ = - 0,0754 + 

Beachte: Nicht nur die Variable, sondern auch die Zahl muß als doppelt genau gekennzeichnet werden, 
sonst wird die Umwandlung einfach genau vorgenommen und die zusätzlichen Bytes der dop- 
pelt genauen Variablen X + werden mit 00 gefüllt. 


E = INT „ -4 

In2 

E* = A +7 = -4+129 = 125 
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(MSB = 1 wegen x<0) 

— A +5 = 107 
— A* 4 = 80 
— A +3 = 176 
— A +2 = 242 
— A +1 = 123 

— A +0 = 179 (gerundet) 

Besondere Beachtung verdient die Tatsache, daß die mathematischen Basic-Funktionen nur einfach genaue 
Ergebnisse liefern. Wird einer doppelt genauen Variablen ein Funktionswert zugewiesen, werden die überzäh- 
ligen Bytes mit 00 aufgefüllt. Die Ausgabe auf Bildschirm oder Drucker erfolgt allerdings immer mit voller 
Stellenzahl. Dies führt dazu, daß Rechenergebnisse ausgewiesen werden, deren letzte Stellen nichts mehr mit 
dem korrekten Wert zu tun haben. Die mathematischen Funktionen können demnach sinnvoll nur in Verbin- 
dung mit einfach genauen Variablentypen eingesetzt werden. 

Die Umsetzung in die oben beschriebene Gleitkommadarstellung ist mit großem Rechnungsaufwand ver- 
bunden. Um die Rechenzeit zu verkürzen, sollten in Basic-Programmen auch feststehende Werte einer Vari- 
ablen zugewiesen und im folgenden nur unter diesem Variablennamen angesprochen werden. Denn Zahlen- 
werte im Basic-Text werden als ASCII -Zeichenfolge abgespeichert und müssen deshalb bei jeder Bearbeitung 
neu umgewandelt werden. 


M = — = 1 ,2064 

128 * 0,2064 = 26,4192 

A +6 = 128 + 26 = 154 

256 * 0,4192 = 107,3152 

256 • 0,3152 = 80,6912 

256 * 0,6912 = 176,9472 

256 • 0,9472 = 242,4832 

256 * 0,4832 = 123,6992 

256 * 0,6992 = 178,9952 



Es geht tatsächlich, mit Hilfe eines einfachen Basic Programms und einer Disketten-Station 
kann man andere Basic Programme vor unerwünschten Auflisten bewahren. Das vorliegende 
Programm ist gedacht für ein 32 K Colour Genie. 


Unser Listschutz Programm läuft 
auch auf einem 16 K Colour 
Genie, man muß dann nur in Zei- 
le 30 die beiden Werte dem ge- 
ringeren Speicher anpassen. Wenn 
man Zeile 20 streicht, sollte das 
Programm auch auf Genie I, II 
oder 1 1 1 und TRS 80 laufen. 

Kurz zur Funktionsweise: 

Das zu bearbeitende Programm 
muß als ASCI I -File auf der Disket- 
te gespeichert sein. Wie man et- 
was als ASCI I -File speichert? 
Ganz einfach : 

SAVE "NAME",A 


Wobei Sie NAME durch den Na- 
men Ihres Programms ersetzen. 
Wenn Sie "Listschutz" gestartet 
haben, fragt es zuerst nach dem 
Namen des zu bearbeitenden Pro- 
gramms. Danach wird dieses Pro- 
gramm wie eine Datei geöffnet 
und in den Speicher des Com- 
puters übertragen. Und jetzt 
kommt der eigentliche Trick! 
An das Ende jeder Programmzei- 
le (Falls sie nicht zu lang ist) wird 
CH RS (28) und CHRS (31) ange- 
hängt. Diese beiden Zeichen be- 
wirken, das am Ende jeder Zeile, 


beim Listen, der Bildschirm ge- 
löscht wird. Der Erfolg: Jede Zei- 
le ist ganz kurz auf dem Bild- 
schirm zu sehen und wird sofort 
wieder gelöscht. Also ist unser 
Programm jetzt gegen unerwünsch- 
tes Listen geschützt. 

Interessant sind vor allem die 
Möglichkeiten, bereits fertige Pro- 
gramme durch ein anderes Pro- 
gramm zu ändern. Vielleicht fällt 
Ihnen ja noch etwas anderes ein, 
daß man auf dieser Basis reali - 
sieren kann. 


10 CLS 
20 COLOUR 1 

30 CLEAR20000: DIMZ5 (400) 

35 ONERRDRGOTOl 0000 

40 PRINT" **** ************************************" 

50 COLOUR3: PRINT" LIST SCHUTZ" 

60 PRINT: COLOUR1 

70 PRINT"****************************************" 
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BO 

90 

95 

96 

97 
100 
110 
115 
120 
125 
130 
140 
150 
160 
170 
1 80 
190 
200 
210 
220 
230 
240 


PRINT: PRINT: PRINT 
LI NE INPUT "NAME DES PROGRAMMS 
PRINT: PR INT" WURDE ";NA*;“ IM 
INPUT" GESPEICHERT ( j/N) " ; ANS 


";NA$ 

ASCII -MODE" 


.-t" 

aO ® 6 


OPEN" I",1,NA* 

IN=0 
IN=IN+1 

L I NE I NPUT # 1 , Z $ ( I N ) 

PRINTZS (IN) 

IFNDTEOF ( 1 ) THEN1 15 
CLOSEI 
F0RI=1T0IN 
IFLEN (Z$ ( I ) ) <250THENZ$ ( I ) =Z$ ( I ) +" : ’ 
NEXTI 

PRINT: PRINT 

LI NE INPUT "UNTER WELCHEM NAMEN SAVEN 
0PEN"0", 1,NA* 

F0RI=1T0IN:PRINT#1,Z$(I> : NEXTI 
CLOSE 

PRINT: INPUT"NOCHMAL (J/N)"; AN* 

I FAN$=" J "THENRUN 




"+CHR* (28) +CHR* (31 ) 


;NA* 


999 END 

10000 IFERR=46THENPRINT : PRINT “ttt PROGRAMM NICHT VORHANDEN ***" 
10900 PLAY (1,4,1,15): FORI =1 T0500: NEXTI 
10910 PLAY (1,4, 1,0) 

10999 RESUME 10 


Ulrich Richter 

Video Datei 


Ein ähnliches Programm wie dieses hatten wir ja schon einmal in der GENIE DATA veröffentlicht. 
Jetzt, da es die Floppy für das Colour Genie gibt, wollen wir nocheinmal ein Video-Verwaltungs- 
programm zum Betrieb mit Diskette bringen. 

Wie schon beim ersten Artikel zu diesem Thema wünschen wir Ihnen auch jetzt wieder, daß 
Sie mit Hilfe dieses Programms etwas mehr Ordnung in Ihre private Videothek bringen können. 


Dieses Programm läuft auf einem 
Colour Genie mit 32 K RAM, ei- 
nem Floppy Laufwerk und dem 
Drucker STAR DP 510. Für an- 
dere Drucker müssen die Steurco- 
des eventuell geändert werden. 

Das Programm ermöglicht die 
Speicherung von Filmtiteln auf 
Diskette, den Ausdruck einer Li- 
ste aller aufgenommenen Filme, 
den Ausdruck der Aufkleber für 
jede Video-Cassette. Ferner be- 
steht die Möglichkeit alle Daten 
eines Films auf ein gesondertes 
Blatt zu drucken. Auf dieses Blatt 
kann man die aus der Fernseh- 
zeitschrift ausgeschnittenen Film- 
beschreibungen aufkleben. Außer- 


dem ist es möglich einzelne Da- 
tensätze und auch Zeilen von Da- 
tensätzen zu ändern, löschen oder 
zu überschreiben. 

In den Zeilen 350 - 640 findet 
die Dateneingabe statt. Der Com- 
puter fragt im Dialogbetrieb die 
einzelnen Daten ab. Zur Eingabe 
der Filmlänge ist zu sagen, daß es 
ja neuerdings Recorder gibt, die 
die Aufzeichnung mit halber 
Bandgeschwindigkeit ermöglichen. 
Um nun die Berechnung der rest- 
lichen Spielzeit nicht durchein- 
ander zu bringen, wird bei halber 
Bandgeschwindigkeit ein L vor die 
Filmlänge gesetzt (z. B. L 200). 

Die Daten werden in einer Ran- 


domdatei auf Puffer 1 gespeichert. 

In den Zeilen 650 - 1340 
sind die Änderungsroutinen reali- 
siert. Beider Löschroutine werden 
alle Datensätze ausser dem zu lö- 
schenden Datensatz im Computer 
gespeichert. Anschließend wird die 
Randomdatei gelöscht und wieder 
neu eröffnet. 

ln den Zeilen 1350 - 1590 wird 
eine Gesamtliste ausgedruckt. 

Die Zeilen 1600 - 2390 ermög- 
lichen den Ausdruck der Cas- 
settenaufkleber. Maximal 4 Film- 
titel können auf einem Aufkle- 
ber untergebracht werden. Die 
Maße der Schneidemarken bezie- 
hen sich auf VHS-Videocassetten. 


20 GENIE 


SOFTWARE 


Oie Zeilen 2400 - 2780 bewir- 
ken, daß die Filmdaten auf ein ge- 
sondertes Blatt gedruckt werden. 

Die Zeilen 2800 und 2810 be- 
enden das Programm. 

,10 CLS : CLEAR8000 : PR I NT § 400 . : 

20 C0L0UR3: PRINTTAB (10) STRING$ (20, 197) 

30 PRINTTAB (10) CHR* ( 1 97 ) ; STR I NG* ( 1 B , 32 ) ; CHR* (197) 

40 PRINTTAB (10) CHR* ( 197) ; : C8L0UR6: PRINT" Video — Datei " ; : C0LDUR3: PR 
I NTCHR* ( 197) 

50 PRINTTAB (10) CHR* (197) ; STRING* ( 1B, 32) ; CHR* ( 197) 

60 PRINTTAB ( 10) STRING* (20, 197) : C0L0UR4 
70 PRINT: PRINT: PRINT 
BO PRINTTAB ( 15) "U. Richter" 

90 PRINTTAB (15) "Hamburg" 

100 PRINTTAB ( 15) " (C) Dez. 19B3" : COLDUR1 

110 F0RI=1T03 

120 I F I = 1 THENA= 1 6 

130 IFI =2THENA=80 

140 IFI=3THENA=170 

150 SDUNDO. A: SOUND 1, 1:S0UND7, 62: S0UND8, 16: SDUND1 1 , 128: S0UND12, 12B: SOUND 
13,9 

160 F0RB=1T0B00: NEXTB 

170 NEXT I : SDUND7, 63 

180 FQRI=1T025: PRINT : NEXTI 

190 REN *#*#*#*** MENUE ********* 

200 C0LDUR6: PRINT"Vi deo - Datei C0L0UR4: PRINT " * Menue *":C0L0UR1 

210 PRINT: PRINT: PRINT 
220 PRINT "Auswahl 

230 PRINT: PRINTTAB ( 10) "<1> - Daten eingeben" 

240 PRINTTAB ( 10) "<2> - Daten aendern" 

250 PRINTTAB ( 10) "<3> - Daten auf Drucker" 

260 PRINTTAB ( 10) "<4> - Kasettenl abel drucken" 

270 PRINTTAB (10) "<5> - Filmdaten drucken" 

280 PRINTTAB ( 10) "<6> - Programm beenden" 

290 F0RI=1T012: PRINT : NEXT 

300 PRINTS520, "Bi tte die gewuenschte Zahl eingeben." 

310 EI*=IfclKEY*: IFEI$< >" 1 " ANDEI*< >"2 " ANDEI *< >"3" ANDEI*< >"4" ANDEI *< >"5" AN 
DEI*< >"6"THEN310 

320 DNVAL (EIS) GOT0360, 660, 1360, 1610,2410,2810 
^330 CLS: G0TD200 
340 END 

350 REM ********* DATENEINGABE ********* 

360 CLS: CDLDUR6: PRINT" Vi deo - Datei CÜLDUR4: PRINT"* Dateneingabe *" 

: C0L0UR1 

370 PRINT.J PRINT"<§> als Eingabe der Kasettennummer kehrtzum Menue zurue 
ck ! " : PR I NT : PR I NT 

380 0PEN"R" , 1 , " VD" : FIELD1 , 6 AS BK$,50 AS BT$,4 AS BL*, 11 AS BB*, 12 AS B 
D*,4 AS BS$ 

390 Z A=L0F ( 1 ) 

400 IFZA=OTHENCGLOUR5: PRINT"Ersteingabe" : C0L0UR1 : GDT0420 
410 PRINT"Datei enthael t " ; ZA; "Fi 1 me. " 

420 PRINT : PRINT "Kasettennummer (max 6 Zeichen) : " : LINEINPUTAKS: IFLEN ( AK 
$) >6THENPRINT§280,CHR$ (31) : PRINTS 280, ; : B0T0420 
430 I FAK*= " § " THEN AK*= " " : CLOSE : G0T0330 

440 PRINT"Fi lmtitel (max 50 Zeichen) :LINEINPUTAT4: IFLEN (AT*> >50THENP 
R INT5360, CHR* (31 ) : PRINT§360, ; : GDT0440 

450 PR INT "Fi lmlaenge (max 4 Zeichen) LINEINPUTAL*: IFLEN (AL*) >4THENPR 
I NT§440, CHR* (31 ) : PRINT§440, ; : G0TD450 
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460 PRINT"Bandzaehl er (max 11 Zeichen) : " : LI NEI NPUTAB* : IFLEN ( AB*) >1 1THE 
NPRINT§520, CHR* (31 ) : PRINT§520, ; : G0T0460 

470 PRI MT "Datum (max 12 Zeichen) : " : LINEINPUTAD* : IFLEN ( AD$) >12THENPRINT 
§600, CHR* (31 ) : PRINT§600, ; : G0T0470 

480 PRINT "Sender (max 4 Zeichen) : " : LI NE INPUT AS*: IFLEN (AS*) >4THENPRINT§ 
680, CHR* (31 ) : PR INT§680« ; : G0T0480 

490 C0LGUR4 : PRINT : PR INT "Spei ehern <S> - Wiederholen <W> 

500 EI*=INKEY*: IFEI*< >"S" ANDEI*< >"W"THEN500 

5 1 0 COLGUR 1 : IFEI*="W" THENPR I NT§280 , CHR* (31): AK*= " " AT*= AL*= " " : AB*= " " 

:AD$=" ":AS*=" " : PRINT§280, ; :6DT0420 
520 LSETBK*=AK* 

530 LSETBT*=AT$ 

540 LSETBL*=AL* 

550 LSETBB*=AB* 

560 LSETBD*=AD* 

570 LSETBS*=AS* 

580 ZA=ZA+1 : PUT 1 , ZA: ZA=0 

590 PR INT "Fi 1 mdaten drucken <J/N> 7" 

600 E I *= I NKEY* : I FE I *< > " J " ANDE I*< >"N" THEN600 
610 IFEI*=" J"THENZ=1 : G0T02640 

620 B*=" " : AK*=" " : AT*=" " : AL*=" " : AB*=" " : AD*=" " : A5*=" " 

630 PR I NT §200 , CHR* (31) :PRINT§200, ; : G0T0390 
640 END 

650 REM ****** DATEN AENDERN ******* 

660 CLS:CDLGUR6:FRINT "Video - Datei C0LÜUR4: PRINT"* Daten aendern * 

" :C0L0UR1 

670 PRINT: PRINT"<§> als Filmtitel kehrt zum Menue zurueck." 

680 PR INT §240, CHR* (31 ) :PRINT§240, ; 

690 DPEN " R " , 1 , " VD " 

700 FIELD1 , 6 AS BK*, 50 AS BT*,4 AS BL*, 11 AS BB*, 12 AS BD*,4 AS BS* 

710 Z A=L0F ( 1 ) 

720 DIMC* (ZA, 5) 

730 PRINT"Titel des zu aendernden Films eingeben" 

740 L INE I NPUTW* : I FW*= " § " THENCLE AR : CLOSE : G0T0330 
750 W1*=W*+STRIN6* ( (50— LEN (W*) ) ,32) 

760 FGRN=1TDZA 
770 GET 1 , N 

780 IFW1*=BT*THEN810 
790 NEXT 

800 CGLGUR4: PRINT"Titel nicht gefunden !": COLGUR 1 : CLE AR: CLOSE: F0RI=1T05 

00: NEXT : G0T0680 

810 PR I NT : PR I NTBT * : M=N 

820 CQLGUR4: PRINT: PR INT "Loeschen <L> - Ueberschreibert <U> - Zeile a 

endern < Z >" : C0LGÜR1 

B30 E I *= I NKEY* : I FE I *< > " L " ANDE I *< > " U " ANDE I *< > " Z " THEN830 

840 I FEI $=" L " THEN870 

850 I FE I *= " U " THEN 1 060 

860 I FE I$="Z" THEN 1200 

870 Q=l:FORN=lTaZA 

880 IFF1=0ANDQ=MTHENF1=1 : G0T0920 

B90 GET 1 , N 

900 C*(Q,0)=BK*:C*(Q, 1 ) =BT*: C* (Q, 2) =BL*: C* (Q, 3) =BB*: C* (Q, 4) =BD*: C* (Q, 5) 
=BS* 

910 Q=Q+1 
920 NEXTN 
930 CLOSE 1 
940 KILL" VD" 

950 OPEN"R", 1 , "VD" 

960 FIELD1 , 6 AS BK*, 50 AS BT*,4 AS BL*, 11 AS BB*,12 AS BD*,4 AS BS* 

970 Q=1 
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980 IFC$(Q,0)=" "THEN1020 

990 LSETBK.$=C$<Q,0) : LSETBT $=C$ (Q, 1) :LSETBL$=C$ <Q, 2) :LSETBB$=C$ (Q , 3) : LBE 
TBD$=C$(Q,4) : LSETBS$=C$ (Q, 5) 

1000 PUT 1 , Q 

1010 Q=Q+1 : G0T0980 

1020 C0L0UR4: PRINT: PRINT"Datensatz geloescht !":C0L0UR1 
1030 CLEAR 

1040 F0RI=1 T0500: NEXT 
1050 CLÜSE: G0T0680 

1060 PR INT §240, CHR$ (31) :PRINT§240, ; 

1070 PRINT” Käset tennummer (man 6 Zeichen) : " : LINEINPUTAK«: IFLEN (AK*> >6T 
HENPRINT§240, CHR$ (31) :PRINT§280, ; :G0TD1070 

1080 PRINT”Fi Imtitel (max 50 Zeichen) LINEINPUTAT*: IFLEN (AT$) >50THEN 
PR I NT §320 , CHR$ (31) :PRINT§320, ; :G0T01080 

1090 PR INT "Fi lmlaenge (max 4 Zeichen) LINEINPUTAL*: IFLEN (AL$) >4THENP 
RINT§400, CHR$ (31) :PR1NT§400, ; :G0TG1090 

1100 PRINT"Bandzaehl er (max 11 Zeichen) LINEINPUTABS: IFLEN (ABU) >1 ITH 
ENPRI NT§480, CHR$ (31) :PRINT§480, ; :G0T81100 

1110 PRINT"Datum (max 12 Zeichen) LINEINPUTADS: IFLEN (AD*> >12THENPRIN 

T§560,CHR$ (31 ) : PRINT§560, ; :G0TD1 1 10 

1120 PRINT-Sender (max 4 Zeichen) LINEINPUTAS$: IFLEN (AS*) >4THENPRINT 

§640, CHR* (31 ) : PRINT§640, ; :G0T81120 

1130 COLOUR4: PRINT: PRINT"Spei ehern <S> — Wiederholen <W>":C0L0UR1 
1 140 EI $=I NKEY* : IFEI*<>"S"ANDEI*< >"W"THEN1 140 
1150 IFEI $=" W"THEN1060 

1 160 LSETBK$=AK* : LSETBT *=AT $ : LSETBL$=AL* : LSETBB*=AB*: LSETBD*=AD$ : LSETBS 
$=AS$ 

1170 PUT 1 , li 

1180 CDLDUR4 : PRINT : PRINT” Datensatz ueberschr i eben ! " : C0LÜUR1 : F0RI=lT05O 
0 : NEXT 

1190 CLEAR: CLDSE: G8T06B0 

1200 PR INT" Welche Zeile < KNR > , <TTL>, <LAE>, <BDZ>,<DAT>, <SEN> ?'• 

1210 L I NEINPUTZE* 

1220 I FZE*= " KNR " THENPR I NT "Käset tennummer (max 6 Zei chen ) " : LINEINPUTAK* : 
I FLEN ( AK* ) >6THENPR I NT§680 , CHR* ( 3 1 ) : PR I NT§ 680 , : GOTO 1 220ELSELSETBK*=AK* : G 
DT01290 

1230 I F ZE*= "TTL "THENPR I NT "Filmtitel (max 50 Zeichen) " : LINEINPUTAT*: IFLE 
IM (AT*) >50THENPRINT§680, CHR* (31 ) : PRINT§6B0, ; : &0T01230ELSELSETBT*=AT*: GOT 
01290 

1240 lFZE$="LAE"THENPRINT"Fi lmlaenge (max 4 Zei chen) LINEINPUTAL*: IFLE 
N (AL* ) >4THENPR I NT§680 , CHR* ( 3 1 > : PR I NT§680 , ; : GOTO 1240ELSELSETBL*=AL* : GOTO 
1290 

1250 IFZE*="BDZ " THENPR INT "Bandzaehl er (max 11 Zei chen) ": LINEINPUTAB*: IF 
LEN (AB*) >1 1 THENPR INT §680, CHR* (31 ) :PRINT§680, ; : G0T01250EL5ELSETBB*=AB*: G 
OT01290 

1260 I FZE*= " DAT "THENPR I NT " Dat um (max 12 Zei chen) " : LI NE INPUT AD*: IFLEN (AD 
$) >12THENPRINT§680,CHR*(31) :PRINT§680, ; : G0T0126OELSELSETBD*=AD*: G0T0129 

0 

1270 IFZE*=" SEN "THENPR I NT "Sender (max 4 Zei chen )": LINEINPUTAS*: IFLEN (AS 
*) >4THENPR INT §680 , CHR* (31 ) : PRINT§680, ; : GOTO 1270ELSELSETBS*=AS*: GOTO 1290 
1280 PRINTCHR* (27) : PRINTCHR* (29) : PRINTCHR* (27) s :G0T01210 
1290 PUT 1 , N 
1300 CLEAR: CLOSE 

1310 C0L0UR4: PRINT"Zei 1 e geaendert !":C0L0UR1 
1320 F0RI=1T0500: NEXT 
1330 G0T06B0 
1340 END 

1350 REM ******* DATEN DRUCKEN ******* 

1360 CLS:C0L0UR6: PRINT" Video - Datei C0L0UR4: PRINT" * Daten drucken 

* " : C0L0UR1 : PRINTCHR* (31 ) 
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1370 IFJDY 1 X>lTHENPRINT"Drucker einschalten !” 

1380 I F J OY 1 X > 1THEN 1 380 

1390 COLOURl : PRINT§200, ; : INPUT"Datum eingeben " ; DA* 

1400 C0LGUR4: PRINTS 40, CHR* (31 > : PRINTS 440, " Inhal tsverzei chniss wird gedr 
uckt ! " 

1410 LPRINT : LPRINTCHR* (27) "W": 

1420 LPRINTTAB( 17) "Video — Datei LPRINTCHR* (27) CHR* (64) 

1430 LPRINT : LPRINTTAB (10) " Inhal tsverzei chni ss: Stand " ; DA* : DA*=“ " : LPR I N 
T : LPR INTTAB ( 1 0 ) STR I NG$ ( 68 , 23 1 > : LPR I NT : LPR INTCHR* ( 27 ) CHR* ( 64 > 

1440 aPEN‘'R'\ 1, "VD" 

1450 FIELD1.6 AS BK*, 50 AS BT*,4 AS BL*, 11 AS BB*,12 AS BD*,4 AS BS$ 
1460 ZA=L0F ( 1 > : N1=0: DIMC* (ZA, 2) 

1470 F0RN=1 TDZA 
1480 GET1.N 

1490 C* (N, 0 ) =BK* : C* (N, 1 ) =BT* : C* (N, 2) =BB* 

1500 NEXT 

1510 F0RN=1T0ZA:N1=N1+1 

1520 LPR I NTT AB (10)C*(N,0) ; " ";C*(N,1>;" ";C*(N,2) 

1 530 I FN 1 =55THENN 1=0 : FQR I = 1 TO 17 : LPR I NT : NEXT I 

1540 NEXTN 

1550 N2=72— 9— NI 

1560 F0RI=1T0N2: LPRINT: NEXTI 

1570 CLEAR 

1580 CLDSE: G0T0330 

1590 END 

1600 REM ****** LABEL DRUCKEN ****** 

1610 CLS:CDL0UR6: PRINT" Video - Datei " ; : C0L0UR4: PR INT" * Kasettenlabel 
drucken *":C0L0UR1 

1620 PRINT"Welches Kasettenlabel soll gedruckt werden " ; : LINEINPUTL 

A* 

1630 LA*=LA*+STRING* ( (6-LEN (LA*) ),32) 

1640 INPUT"Kasettenl aenge eingeben (Min) ";MI 
1650 0PEN ,, R”,1, "VD" 

1660 FIELD1 , 6 AS BK*, 50 AS BT*, 4 AS BL*, 11 AS BB*, 12 AS BD*, 4 AS BS* 
1670 ZA=L0F ( 1 ) : F=0 
1680 F0RN=1T0ZA 
1690 GETl.N 

1700 IFBK*=LA*ANDF=3THEND1*=BT*: D2*=BL*: D3*=BB*: D4*=BD*: D5*=BS* : F=4 : GOT 
01740 

1710 IFBK*=LA*ANDF=2THENC1*=BT*: C2*=BL*: C3*=BB*: C4*=BD*: C5*=BS*: F=3: GOT 
01740 

1720 IFBK*=LA*ANDF=1THENB1*=BT*:B2*=BL*:B3*=BB*:B4*=BD*: B5*=BS*: F=2: GOT 
01740 

1 730 I FBK*=LA*ANDF=OTHENA 1 *=BT* : A2*=BL* : A3*=BB* : A4*=BD* : AS*=BS* : F= 1 
1740 NEXTN 

1 750 I FLEFT* ( D2* , 1 ) = " L " THEND2*=R I GHT* (D2* , 3 ) : D2=VAL ( D2* ) / 2ELSED2*=LEFT* 
( D2$ , 3 ) : D2= VAL ( D2* ) 

1 760 IFLEFT* ( C2* , 1 ) ="L" THENC2*=R I GHT* (C2* , 3 ) : C2=VAL ( C2* ) / 2ELSEC2*=LEFT* 
(C2$, 3) : C2=VAL (C2*) 

1770 IFLEFT* (B2*, 1 ) ="L“THENB2*=RIGHT* (B2*,3) : B2=VAL (B2*> /2ELSEB2*=LEFT* 
< B2* , 3 ) : B2= VAL ( B2* ) 

1 780 I FLEFT* ( A2* , 1 ) ="L" THENA2*=R I GHT* ( A2* , 3) : A2=V AL ( A2* ) /2ELSEA2*=LEFT * 
(A2*,3) : A2=VALCA2*> 

1790 PRINT"InhaIt der Kasette ";LA*: PRINT 

1800 IFF>0THENPRINTA1*: PRINTA2*; " Min. ";A5$;" ";A4*;" " ; A3*: PRINTSTRIN 
G* (40, 45) ; 

1810 IFF>1THENPRINTB1*: PRINTB2*; " Min. ";B5*;" ";B4*;" B3*: PRINTSTRIN 

G* (40, 45) ; 

1820 IFF>2THENPRINTC1$: PRINTC2*; " Min. ";C5*;" C3$: PRINTSTRIN 

G* ( 40, 45) ; 
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1B30 I FF >3THENPR I NTD 1 * : PR I NTD2* ; " Min. " ;D5*; M ,, ;D4*;" " ; D3*: PRINTSTRIN 
G* (40, 45) : 

1840 C0L0UR4: PR INT "Drucken <D> — Wiederholung < W>‘‘ : C0LDUR1 
1850 EI*=INKEY*: IFEI*<>"D ,, ANDEI*< >"W" THEN 1850 
1860 IFE1 *="W"THENCLQSE: GGSUB2310: G0T01610 
1870 IFJ8Y 1 X > 1 THENPRI NT”Drucker einschalten." 


1880 1 F J D Y 1 X > 1 THEN 1 880 
1990 LPRINTCHR* (27) "P"CHR* (3) 

1900 LPRINT 

1910 LPRINTTAB (20) STRING* (54.232) 

1920 LPR I NTT AB ( 20 ) CHR* ( 233 ) ; " Kasette ";LA*; U L" ; CHR* ( 1 23) ; "nge " ;MI;" 


Minuten" ; STRING* ( 17,32) ; CHR* (234) 

1930 IFF >0THEN 1 940ELSEGDSUB2320 : GOTO 1 960 

1940 LPRINTTAB (20) CHR* (233) ; " ,, ;A1$; , ‘ ";CHR$<234) 

1950 LPR I NTT AB (20) CHR* ( 233 ); " "jA2*;" Min. ";A5*;‘' 

" CHR* (234) 

1 960 1 FF >1 THEN 1 970ELSEGGSUB2320 : GDTOl 990 

1970 LPRINTTAB(20)CHR* (233) ; “ ";B1*;" " ; CHR* ( 234) 

1980 LPR I NTT AB (20) CHR* (233) ; ";B2*;" Min. ";B5*;" 

" CHR* (234) 

1990 I FF >2THEN2000ELSEGDSUB2320 : GDT D2020 

2000 LPR I NTT AB (20) CHR* (233) ; " " ;C1*;" CHR* (234) 

2010 LPRINTTAB(20)CHR$ (233) ; " ";C2*;" Min. ";C5*; n 
" CHR* (234) 

2020 IFF>3THEN2030ELSEG0SUB2320: GÖTD2050 

2030 LPR I NTT AB (20) CHR* (233) ; " ";Dl*j" CHR* (234) 

2040 LPR1NTTAB (20) CHR* (233) ; " " ; D2*; " Min. ";D5*;" 

" CHR* (234) 

2050 ML=MI- (A2+B2+C2+D2) : Z*=" Restliche Spielzeit : ca 


" ; A4*; " " ; A3* ; 

" ; B4$ ; " " ;B3*; 

" ; C4*; " " ; C3* ; 

" ; D4$ ; " ";D4*; 

"+STR* (ML) +" Min 


Uten " : ZIELEN (Z4) 

2060 LPR I NTT AB ( 20 ) CHR* (233) ; Z*; STRING* (52-Zl,32) ; CHR* (234) 
2070 LP RI NTT AB (20) STR ING* (54,232) 

2080 LPRINT : LPR INT 

2090 LPRINTTAB (20) STRING* (100, 232) 

2 1O0 IFF >0THEN21 1 OELSEG0SUB233O: G0T021 20 


2110 LPRINTTAB (20) CHR* (233) ; STRING* (10,32) ; Al*; " ; A3*; STRING* ( 26, 32) ;C 

HR* (234) 

2120 IFF > 1THEN2 1 30ELSEG0SUB2330 : G0T021 40 

2130 LPRINTTAB (20) CHR* (233); STRING* (10, 32) ;B1*; " " ; B3*; STRING* (26, 32) ; C 
HR* (234) 

2140 IFF >2THEN2 1 50ELSEGQSUB2330 : GOT D2 160 

2150 LPRINTTAB ( 20 ) CHR* ( 233) ; STRING* (10, 32) ; CI *; " " ; C3* ; STRI NG* (26 , 32) ; C 
HR* (234) 

2160 IFF >3THEN2 1 7 OELSEGOSUB2330 s G0T02180 

2170 LPRINTTAB (20) CHR* (233) ; STRING* < 10, 32) ;D1$; " "; D3*; STRING* (26, 32) ;C 
HR* (234) 

2 1 SO LPR I NTT AB ( 20 ) STR I NG* ( 1 00 , 23 1 ) 

2190 LPRINT: LPRINT 

2200 LPRINTTAB (20) STRING* (58. 232) 

2210 IFF>0THEN2220ELSEGÜSUB2340 : G0T02230 
2220 LPRINTTAB (20) CHR* (233) ; " "sAl*;" 

2230 I FF > 1 THEN2240ELSEG0SÜB2340: G0T02250 
2240 LPRINTTAB (20) CHR* (233) ; " "Bl*;" 

2250 IFF >2THEN2260ELSEGGSUB2340 : GÜT02270 
2260 LPRINTTAB (20) CHR* (233) ; " ";C1$;" 

2270 IFF>3THEN2280ELSEGQSUB2340: G0T02290 
2280 LPRINTTAB (20) CHR* (233) ; " " ;D1*;" 

2290 LPR I NTTAB ( 20 ) STR I NG* (5B ,231) 

2300 GDSUB23 1 0 : G0T02350 

2310 Al *=" " : A2*=" “ : A3$=" " : A4*=" " : A5*=" " : Bl*=" " : B2*=" " : B3*=" " : B4*=" " : B5* 


" ;CHR* (234) 
CHR* (234) 

" ; CHR* (234) 
CHR* (234) 
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* Ci?=" C2?=" " : C3?=" ": 04?="" : C5?=" “ : Dl?=" " : D2? =" " : D3?=" ,, :D4$= ,MI : D5$= 

" " : Z?=" RETURN 

2320 LF'RINTTAB (20) CHR? (233) : STRING* <52, 32) ;CHR?(234) : LPRINTTAB (20) CHR? ( 
233) ; STRINGS (52,32) ; CHR? (234) : RETURN 

2330 LPRINTTAB (20) CHR? (233) : STRING? (98, 32) ; CHR? (234) : RETURN 
2340 LPRINTTAB (20) CHR? (233) : STRING? (56, 32) ; CHR? (234) : RETURN 
2350 LPRINTCHR? (27) CHR? (64) 

2360 LPRINT : LPRINT : LPRINT : LPRINT : LF'RINT 
2370 CLDSE 
2380 GOT0330 
2390 END 

2400 REM ****** ! FILMDATEN DRUCKEN ****** 

2410 CLS:C0L0UR6: PRINT" Video - Datei C0LDUR4: PRINT" * Filmdaten druc 

ken * " : CDLOUR 1 

2420 PRINT : PRINT " < § > als Titel kehrt rum Menne zurueck" 

2430 PRINT: PRINT"Titel des Films eingeben : " : LINEINPUTAT?: IFAT?="§"THEN 
CLEAR: CLGSE: GQT0320ELSEAT?=AT?+STRING? ( (50-LEN ( AT?) ) ,32) 

2440 IFLEN (AT?) >50THENPRINT§ 1 60 . CHR? (31 ) :PRINT§120,; : G0T02430 
2450 □PEN"R", 1, "VD" 

2460 FI ELD 1,6 AS BK?, 50 AS BT?, 4 AS BL?, 1 1 AS BB?, 12 AS BD?,4 AS BS? 
2470 ZA=LOF < 1 ) 

2480 F0RN= 1 TOZA 
2490 GET 1 , N 

2500 IFAT?=BT?THEN2540 
2510 NEXTN 

2520 C0LDUR4: PRINT : PR INT "Ti tel nicht gefunden ! " : C0L0UR1 : FQRI=1T0500: NE 
XT: CLEAR: CLÜSE: GDT02410 

2530 IFLEFT? (BL?, 1 ) = " L" THENBL?=R I GHT ? (BL? , 3 ) ELSEBL?=LEFT? (BL?, 3) 

2540 PR INT : PR INTBK? 

2550 PRINT: PR INTBT? 

2560 PRINT: PR INTBL? 

2570 PRINT: PR INTBB? 

2580 PRINT: PR INTBD? 

2590 PRINT: PR INTBS? 

2600 CÜL0UR4: PR INT: PR INT “Drucken <D> - Wiederholen <W>":CDL0UR1 
2610 EI ?=INKEY? : IFEI?< > "D" ANDE I?< >" W" THEN26 10 
2620 IFEI?="D"THEN2640 
2630 CLEAR : CLOSE : G0T024 10 

2640 IFJOY 1 X >1THENCOLOUR4 : PR INT “Druck er einschalten ! ":CaLOURl 

2650 IFJOY 1XMTHEN2650 

2660 LPRINTCHR? (27) CHR? (64) ; 

2670 LPRINT: LPRINT: LPRINT 

2680 IFLEFT? (BL?, 1 ) ="L" THENBL?=R IGHT? (BL?, 3) ELSEBL?=LEFT? (BL?, 3) 

2690 LPRI NTT AB ( 1 0 ) " Käset t ennummer 

2700 LPRINTTAB (10) "Filmtitel 

2710 LPRINTTAB (10) "Fi lmlaenge 

2720 LPRINTTAB (10) "Bands aehl er . . . 

2730 LPRINTTAB (10) "Aufnahmedatum. 

2740 LPRINTTAB (10) "Sender 

2750 F0RI=1T063: LPRINT: NEXTI 
2760 IFZ=1THENZ=0: GQT0620 
2770 CLEAR 
2780 CLOSE 
2790 GDT02410 

2800 REM ****** ENDE ****** 

2810 CLS:C0L0UR6: PRINT" Video - Datei " ; : C0L0UR4 : PR INT"* Programm beend 
et * " : CDLOUR 1 : END 


BK? 

BT? 

BL?: " 

BB? 

BD? 

BS? 
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Jetzt gibt es was zum Spielen ! 

Wenn Sie sich wundern, was die im Titelbild genannten CS Joysticks sind, dann warten Sie bis 
zur nächsten GENIE DATA. Da finden Sie die Bauanleitung. 

Da Sie aber das Spiel auch über die Tastatur oder über die in diesem Heft beschriebenen Joysticks 
spielen können, lohnt sich das Tippen jetzt schon. 
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wieder rot und damit gefähr- 
lich werden, ertönt ein Warnton, 
der es "Mr. Ma 2 e Man" ermög- 
licht, sich in Sicherheit zu bege- 
ben. Sobald das Labyrinth von al- 
len weißen Futterpillen gelehrt 
ist, wird es wieder neu mit Kraft- 
pillen und Futterpiilen aufgefüllt. 
Außerdem hat sich "Mr. Maze 
Man" ein neues Leben dazu ver- 
dient. Zur Steuerung hat der Spie- 
ler die Auswahl zwischen den vier 
Pfeiltasten und den Tasten E, V, J, 
und L, die auch bei dem PACMAN 
für den VC 20 verwendet werden. 

Der Spielaufbau 

"Mr. Maze Man", die Geister, 
Kraftpillen, Noten usw. werden 
von je einem programmierten Zei- 
chen in verschiedenen Farben dar- 
gestellt. Dadurch wurde ein beson- 
ders großes Labyrinth ermöglicht. 
In der Mitte des Irrgartens befin- 
det sich die Höhle, in der sich die 
Geister bei Spielbeginn aufhaiten. 
An der linken Seite dieser Höhle 
liegt ein Tor, das nur von den Gei- 
stern, nicht jedoch von "Mr. Ma- 
ze Man” passiert werden kann, der 
seine Startposition an der rechten 
Seite des Käfigs hat. Das Laby- 
rinth ist mit kleinen, weißen Fut- 
terpillen gefüllt. Im untersten und 
obersten Gang befinden sich je- 
weils drei Kraftpillen. Wenn Sie 
den Bildschirm aufmerksam beob- 
achten, werden Sie feststellen, daß 
in dem Gang unter der Schrift 
"Maze Man" eine Futterpille fehlt. 
An dieser Stelle erscheint von Zeit 
zu Zeit eine Note, die Ihnen 100 
bis 900 Sonderpunkte einbringt, 
wenn sie gefressen wird. 

Die Wertung 

Kleine, weiße Futterpille 10 Pkt. 
Gelbe Kraftpille 50 Pkt. 

Noten 100 -900 Pkt. 

1. Geist 200 Pkt., 2. Geist 400 
Pkt., 3. Geist 800 Pkt. usw. 

Variationsmöglichkeiten 
Bei geübten Spielern kann "Maze 
Man" sehr lange dauern. Daher ist 
es manchmal ratsam zu verhin- 
dern, daß "Mr. Maze Man" mit je- 
dem Labyrinth ein neues Leben 
dazu bekommt. Das geschieht 
durch PO KE &H5358.0. 

Zu Anfang ist "Maze Man" auf 
eine mittlere Geschwindigkeit ein- 
gestellt. Diese kann durch PO KE 


&H4ACF,X ebenfalls variiert wer- 
den, wobei X Werte zwischen 1 
und 255 annehmen darf. 

Programmdaten 

"Maze Man" belegt den Grafik- 
speicher von 4800H bis 5660H. 
Das entspricht einer Lange von 
3680 Bytes. Die Ansprungadresse 
ist 4AE7H. 

VIELSPASS! 
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Sendet eine Postkarte mit Absender u. 
Angabe der echt errungenen Punkte 
die Sie durch ihr größtes Können er- 
zielt haben. 

Wir wollen sehen, welcher Commander 
als DEUTSCHER MEISTER infrage 
kommt. Wer noch keine Kampfma- 
schine hat, kann sie umgehend bei 
uns erhalten. DM 59,-- per NIM 


Der Wettkampf soll über den Zeitraum 
von drei GENIE DATA's laufen. 


Wir werden in der nächsten GENIE DATA 
die Teilnehmer mit Ortsangabe hier 
namentlich abdrucken. 

MACHEN SIE MIT! 

DIE 10 BESTEN ERHALTEN EINE 
SIEGER-URKUNDE. 


DER DEUTSCHE MEISTER 
erhält eine Ehren-Urkunde und wird 
nach dem Endkampf hier mit Foto 
vorgestellt. 

*#**•***#**•*•**#*#**#***#*#***•»#** 
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.... verdienen Sie sich doch 
mit Ihrem Computer-Hobby 
etwas nebenher 



Unsere Konditionen 

finden Sie im Impressum ! 
************** 
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09 
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F9 
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3E 
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02 
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00 

D3 

5434 

F9 

3E 

03 
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00 
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08 

D3 

F8 
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OF 
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F9 
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C5 

4A 
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21 

B2 
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4A 

48 
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09 

30 

F9 
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DD 

77 

01 
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21 

07 

47 

^2 
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40 

3E 

07 

32 
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40 
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3E 

84 

CD 

68 

48 

18 

11 

3D 

32 

4A 

48 
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CD 

59 

48 

84 

3D 

00 

DD 

21 

OC 

48 

CD 
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D8 

48 

CD 

C5 
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3A 

57 

48 

3D 

20 

08 

54B8 

3E 

08 

32 

57 

48 

C3 

63 

52 


57 

48 

54C3 

CD 

C5 

4A 

DD 

21 

23 

48 

CD 

43 

4A 

CD 

54CE 

C5 

4A 

DD 

21 

28 

48 

CD 

43 

4A 

CD 

C5 

54D9 

4A 

DD 

21 

2D 

4B 

CD 

43 

4A 

CD 

CS 

4A 

54E4 

DD 

21 

32 

48 

CD 

43 

4A 

CD 

C5 

4A 

DD 

54EF 

21 

37 

48 

CD 

43 

4A 

CD 

C5 

4A 

DD 

21 

54FA 

3C 

48 

CD 

43 

4A 

C3 

63 

52 

3A 

22 

48 

5505 

3D 

32 

22 

48 

22 

20 

40 

3E 

04 

32 

TT 

5510 

40 

3A 

43 

48 

C6 

86 

CD 

68 

48 

3E 

07 

55 1B 

D3 

F8 

3E 

3D 

D3 

F9 

3E 

02 

D3 

F8 

3E 

5526 

64 

D3 

F9 

3E 

03 

D3 

F8 

3E 

OO 

D3 

F9 

5531 

3E 

09 

D3 

F8 

3E 

OF 

D3 

F9 

01 

00 

00 

553C 

CD 

60 

00 

CD 

60 

00 

3E 

07 

D3 

F8 

3E 

5547 

3F 

D3 

F9 

36 

20 

3A 

22 

48 

3C 

28 

30 

5552 

01 

00 

AC 

DD 

21 

23 

48 

CD 

B5 

4A 

DD 

555D 

21 

28 

48 

CD 

B5 

4A 

DD 

21 

2D 

48 

CD 

5568 

B5 

4A 

DD 

21 

32 

48 

CD 

B5 

4A 

DD 

21 

5573 

37 

48 

CD 

B5 

4A 

DD 

21 

3C 

48 

CD 

B5 

557E 

4A 

C3 

AC 

51 

21 

C6 

45 

22 

20 

40 

3E 

5589 

04 

32 

23 

40 

3E 

20 

06 

OB 

CD 

72 

48 

5594 

21 

EE 

45 

r>2 

20 

40 

CD 

59 

48 

20 

47 

559F 

41 

4D 

45 

20 

4F 

56 

45 

52 

20 

00 

21 

55AA 

16 

46 

22 

20 

40 

3E 

20 

06 

OB 

CD 

72 

55B5 

48 

DD 

21 

00 

48 

FD 

21 

04 

48 

CD 

31 

55C0 

49 

DA 

DF 

55 

01 

00 

00 

CD 

60 

00 

CD 

55CB 

60 

00 

CD 

60 

00 

CD 

60 

00 

CD 

60 

00 

55D6 

CD 

60 

00 

CD 

60 

00 

C3 

00 

4B 

CD 

4D 

55E1 

49 

3E 

OA 

32 

23 

40 

CD 

£9; 

01 

CD 

59 


T 
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"Sach mal, 
hat deen Händler 
ooch schon mal inseriert 
in de Genie Data?" 



"Det eene sag ick Dir, 
hätte de Genie Data 
mehr Kundschaft jehabt 
für Inserate 
wär se im Preis 
bestimmt nich uffjeschlarenü!" 

"Na ja, ick finde det aber janz 
prima von de Genie Data, denn ab 
de nächste Zeitung 
kriejen alle Abonennte, 
die 1984 dazu kamen, 
von de Erstausjabe Nr. 1/83 
12 Blätter mit rin als Zujabe 
in det Hefte 
und det bei jede weitere 
Ausjabe bis det Heft 1 
komplett is!" 

"Vielleicht machen ses ooch 
von de Nr. 2/83. 

"Det jlobe ick janz bestimmt!" 

"Na ja machs mal jut 
bis später!" 
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55EC 

48 

20 

20 

20 

59 

4F 

55 

20 

48 

41 

56 

55F7 

45 

20 

42 

52 

4F 

4B 

45 

4E 

20 

54 

48 

5602 

45 

20 

48 

49 

47 

48 

20 

53 

43 

4F 

52 

560 D 

45 

OD 

OD 

00 

CD 

59 

48 

4 E 

45 

57 

20 

5618 

48 

49 

47 

48 

20 

53 

43 

4F 

52 

45 

3A 

5623 

00 

CD 

D8 

48 

CD 

59 

48 

OD 

OD 

50 

4C 

562E 

45 

41 

53 

45 

20 

54 

45 

4C 

4C 

20 

4D 

5639 

45 

20 

59 

4F 

55 

52 

20 

4E 

41 

4D 

45 

5644 

20 

00 

21 

10 

48 

06 

OF 

CD 

D9 

05 

38 

564F 

D7 

48 

06 

00 

09 

36 

00 

C3 

00 

4B 

00 

565A 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 
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Auf nach Las Vegas, ins Spielerpa- Sie ziehen solange Karten, bis Sie wonnen und bekommt die Summe 
radies. Aber selbstverständlich nur glauben genug zu haben. Genug von 2000,-- seinem Konto gutge- 
in unserer Fantasie, denn wer haben Sie wenn Sie 21 Augen oder schrieben. Der Computer über- 
könnte sich schon so mir nichts, möglichst viele unter 21 haben, nimmt hierbei alle Aufgaben, wie 

dir nichts das Ticket leisten? Wenn Sie mehr ziehen als 21, ha- z. B. die Karten mischen und aus- 

Aber Scherz bei Seite! In Las ben Sie sowieso verloren. teilen. 

Vegas wird ja viel "Glücks-Ge- Nachdem Sie keine Karte mehr So, jetzt viel Spaß, und seien 
spielt" und das können Sie mit nehmen, ist der Computer dran. Sie nicht böse, wenn Ihr Colour 

unserem 17 + 4 Programm auch. Er zieht auch Karten, wobei er Genie Ihnen die gewonnene Sum- 

Die Regeln dieses Spieles sind versucht 21 zu bekommen oder me am Spielende nicht ausbe- 

Ihnen ja wohl bekannt, oder? eine möglichst hohe Zahl unter zahlt. Schließlich will er ja auch 
Also, es geht so : 21. Wer die meisten hat, hat ge- kein Geld von Ihnen! 
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13 FQRQ=3TD5: FQRT=1T07 


14 FORI=15T01STEP-1:PLAY(1 ,Q,T, I ) : F0RU=1TD5: NEXTU, 1 : FORU= 1 TO 10: NEXTU, T, 
0:PLAY<1,0,T,0) 

15 CLS 

16 CLEARIOO: DIMK$ (33) 

17 DIMKA« (33) :DIMKB* (33) 

1B DI MKW ( 33) 

19 KA=1 0000: E 1=2000 

£ fi i-- i v- -r ;; 


23 G0SUB25: G0TQ29 

24 CLS 

25 C0L0UR7: RR INT0O, Kl *s FORI = 1 TG6: PR INTK2* : NEXTI : PR INTK3* 

26 CÜLDUR5: PRINT : PRINT : PRINT" — 

PRINT 

27 COLQURB: PRINTK1 * : F0RI= 1T06 : PR1NTK24: NEXTI : PR I NTK3$ 

28 COLGÜRl: RETURN 

29 PRINT092O, "Moment batte, ich mische. 

30 G0SUBB5: PR INT092O, 11 " ; 

31 PRINT092O, "Es geht los, mein Freund." 

32 KS=0:KC=0 

33 ZZ=1 

34 SC=1 : AK=1 : Z=1 : F0RI = 1 T0500: NEXT-. PRINT092O, " 

35 GDSUB61 

36 IFKS>21 THENG0T078 

37 IFKS=21 THENG0SUB82 

38 ZZ=ZZ+1: IFZZ=6THENPR INT092O, "Ich bin dran. 

GOT 04 3 

39 PRINT092O, "Noch eine Karte <J/N) ?"; 

40 PLA ('(2,3, 1, 15) : FÜR 1=1 TORO s NEXT : PLAY (2, 3, 1,0) 

41 A$=INKEY$: IFA$=" "THEN41 

42 IFAS="J"THENPRINT092O, " ";:G0SUB61: 

GOT 03 6 

43 ZZ = 1 : SC=2: AK=1 : G0SUB61 

44 IFKO21THENG0T083 

45 IFKC=21THENG0SUBB4 

46 ZZ=ZZ+1 : IFZZ=6THENG0T052 

47 IFKC>=18THENG0T052 

48 IFKOKSTHENG0T052 

49 IFZZ< 1DRKC< 1 40RKC< KSTHENG0SUB1 16: G0T044 

50 IFKOKSTHENGOT052 

51 G0TO44 

52 PRINT084O, "Du hasfüKS;" Augen." 

53 PRINT0B8O, "Ich habe";KC;" Augen." 

54 IFKOK5THENPRINT092O, "Der Sieger heisst " ; : CDLDUR5: PRI NT"COLGUR GENI 
E" ; : C0L0UR1 : PRINT" ! ! ! ! ! " : KA=KA-EI 

55 IFKS>KCTHENPRI NT092O , "Du hast gewonnen KA=KA+E I 
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56 IFKS=KCTHENPRINT©920, "Unentschieden. " 

57 FORI =1 TO 1000: NEXTI 

58 G0SUB25: KS=0: KC=0: ZZ=1 : SC=1 : AK=1 

59 PRINTB840, "Du hast" ; KA;" DM 

" ; : PRINT092O, " 

: FORI=1TQ1000: NEXTI : G0TD35 

60 END 

61 P0=( (AK-1) *8)+42 

62 IFSC=2THENF'D=P0+520 

63 PR1NT0PO, " " ; : P0=P0+40 

64 PR INT0PO, KA$ < Z ) : P0=PQ+4O 

65 PRINT0PO, KB$ ( Z ) : P0=PD+40 

66 PRINT0PQ, " ";:PO=P0+40 

67 IFKA$ ( Z ) =" KREU"THENC0L0UR6: PRINT0PO, " tfrtfr "; 

68 IFKA$ (Z)="PIK "THENC0L0UR6: PRINT0PO, " ** 

69 IFKA$ ( Z ) ="HERZ "THENCOLOUR3: PRINT SPD, " 

70 IFKA$ ( Z) =" KAR0“THENC0L0UR3: PRINT0PO, " 4K> " ; 

71 PQ=P0+40: PRI NT0PO, " ";:C0L0UR1 

72 AK=AK+1 

73 IFSC=1TH£NKS=KS+KW(Z) 

74 IFSC=2THENKC=KC+KW<Z> 

75 Z=Z+1 

76 IFZ=33THENPRINT088O., "Ich muss erst mi sehen G0SUB85: Z=1 : PRINT088O, 

II II . 

«I 

77 RETURN 

78 PRINT032O, "Du bist C0L0UR3: PRINT" kaputt CDL0UR1 : PRINT" !!!!! " 

79 FDRI=KATOKA— EI STEP — 100 

80 PRINT084O, "Dein Kapital";!;" ": PLAY ( 1 , 1 , 1 , 15) : F0RU=1 T030: NEXTU: PLAY ( 
1, 1, 1,0) : F0RU=1T010: NEXTU, I:KA=KA-EI 

81 FORI = 1 TO 1000: NEXTI : PRINT032O, " 

" ; : G0SUB25: KS=0: KC=0: ZZ=1 : SC=1 : 

AK=1 : G0T035 

82 PRINT04OO, "Du hast 21 !!!!":RETURN 

83 PRINT084O, "Du hast gewonnen . *' : FQRI = 1 T01000: NEXT : KA=KA+EI : G0T058 

84 F0R0=1T05: F0RT=1T07: PLAY ( 1 , 0, T, 15) : F0RU=1T05: NEXTU, T, 0: PLAY ( 1 , 0, T, 0) 
: G0T052 

85 RESTORE 

86 F0RI=1T032: K$ ( I ) =" " : NEXTI 

87 FORI =1 T032 

88 T=RND (15) :0=RND<6) :PLAY(2,0,T, 15) 

89 X=RND (32) : IFX=0THEN89 

90 IFK$ (XX >" "THEN89 

91 READA$:K$(X)=A*:NEXTI 

92 PLAY (2, 0, T, O) 

93 G0SUB98: RETURN 

94 DATAKA, KK, KD, KB, Kl , K9, K8, K7 

95 DATAPA, PK, PD, PB, PI , P9, P8, P7 

96 DAT AHA, HK, HD, HB, Hl , H9, HB, H7 

97 DATA AA, AK, AD, AB, Al , A9, A8, A7 

98 F0RI=1 T032 

99 X$=LEFT*(K$CI) , 1) 

100 IFX$="K"THENKA$ ( 1 ) ="KREU" 

101 IFX$="P"THENKA*<I)="PIK » 

1 02 IFX$="H"THENKA$ ( I ) ="HERZ" 

103 IFX$="A"THENKA$ ( I ) ="KARO" 

104 NEXTI 

105 F0RI=1T032 

106 X*=RIGHT$(K$(I) , 1) 

107 IFX$="A"THENKB$ ( I ) ="ASS ":KW(I)=U 

108 IFX*="K"THENKB* ( I ) ="KOEN" : KW ( I ) =4 
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109 IFX$="D"THENKB$ ( I )= ,, DAME” : KW ( I ) =3 

110 IFX$="B'’THENKB$ ( I ) = ,, BÜBE" : KW < I > =2 

111 I FX$=" 1 "THENKB$ ( I ) — " 10 ":KW(I)=10 

112 IFX$=“9"THENKB$ ( I ) ="9 9":KW(I)=9 

113 IFX$="8"THENKB$ ( I ) ="8 8":KW(I)=S 

114 IFX$= ,, 7"THENKB$ (I )="7 7 " : KW ( I > =7 

115 NEXTI: RETURN 

116 PRINTÖ920, "Ich nehme noch eine. ; 

117 FORI =1T0200: NEXTI : GDSUB61 

1 1 B PR INT @920, ” M ; 

119 F0RI=1T040:T=RND( 15) :0=RND<6) : PLAY ( 1,0, T, 15) : F0RU=1 TO 10: NEXTU, I : PLA 

Y ( 1 , 0, T, 0) i 

120 RETURN 


Rainer Schmies 

Toolkit 

Obwohl das Genie I + II Basic ja recht umfangreich ist, wollen wir Ihnen hier eine Erweiterung 
präsentieren. Zur Eingabe des unten abgedruckten Quellcodes benötigen Sie einen Editor/ Assembler, 
z. B. EDTASM von Microsoft. 


Dieses Programm ist in Maschinen- 
sprache geschrieben und erweitert 
das vorhandene Basic um insge- 
samt 10 Befehle, im Gegensatz 
zu den üblichen Basic-Erweiter- 
ungen werden in diesem Pro- 
gramm jedoch nicht die schon 
vorhandenen Disk-Basic Befehle 
verwendet, da das Programm auch 
mit Disketten zu benutzen sein 
soll. In diesem Falle wurden also 
schon vorhandene Basic-Befehle 
um ein Ausrufezeichen erwei- 
tert und bilden nun zusammen 
mit diesem völlig neue Befehle, 
die auch Disk-Compatibel sind. 
Zunächst also eine kurze Er- 
läuterung der Befehle: 

Befehl: LPRINT! 

Dieser Befehl bewirkt eine Hard- 
copy des Bildschirminhaltes auf 
einen Drucker, besitzt der Druck- 
er die TRS-80 Grafik, (z.B. 
Microline micro 80), so wird 
auch diese ausgegeben. Der Biid- 
schirminhalt wird bei 80 Zei- 
chen pro Zeile in der Papiermit- 
te ausgegeben. Möchten Sie die 
Routine durch eine eigene 
Druckerroutine ersetzen, die auf 
Ihren Drucker zugeschnitten ist, 
(z.B. siehe GENIE-DATA Nr.4), 
so sind die Programmzeiien 400- 
540 zu löschen. In diesen Bereich 


geben Sie nun Ihre eigene Routi- 
ne ein. (Dies kann natürlich auch 
eine völlig andere sein, die nichts 
mit einem Drucker zu tun hat). 

Befehl: PRINT! 

Dieser Befehl invertiert alle auf 
dem Bildschirm sichtbaren Gra- 
fikzeichen. Text wird nicht ver- 
ändert. Zweimalige Anwendung 
des Befehls stellt den ursprüng- 
lichen Zustand wieder her. Die 
Routine ist ersetzbar durch 
Löschen der Zeilen 610—770 
und einfügen einer Neuen Rou- 
tine. 

Befehl: LLIST! 

LLIST! schaltet um zwischen 
Drucker— und Bildschirmausga- 
be. Alles, was normalen/veise auf 
dem Bildschirm erscheint, wird 
nun auf den Drucker ausgegeben. 
Auch z.B. Fehlermeldungen und 
die READY Meldung. Dies ist 
ganz nützlich, um Programmpro- 
beläufe zu dokumentieren usw. 
Auch hier wird durch erneute 
Anwendung der Urzustand wieder 
hergestelit. Ersetzen der Routi- 
ne: Zeilen 810-880 löschen, 
neue Routine einfügen. 

Befehl: STOP! 

Dieser Befehl schaltet wechsel- 
weise die BREAK-Taste aus und 
wieder ein. Ihre Programme kön- 


nen von Unbefugten nicht ver- 
sehentlich unterbrochen werden, 
was bei Demo-Programmen oder 
sehr aufwendigen Berechnungen 
ärgerlich ist. Ändern in den Zei- 
len 920-970. 

Befehl: NAME! 

Diesen Befehl wird wohl jeder 
am liebsten durch einen anderen 
ersetzen wollen, er druckt näm- 
lich lediglich mein Copyright 
auf den Bildschirm aus. Zu än- 
dern: Zeilen 1040-1080. 

Befehl: CLS! 

Umgekehrte Funktion wie CLS. 
Anstatt den Bildschirm zu lösch- 
en wird er vollständig weiß ge- 
malt. Änderbar in den Zeilen 
1120-1160. 

Befehl: FN!(Variable) 
Variable kann eine beliebige, ein- 
symbolige Variable sein, z.B. A, 
B, C, .... usw. Enthält Variable 
einen ganzzähligen Wert zwischen 
-32768 und +32767 so wird der 
Inhalt der Variablen in Binär- 
darstellung auf dem Bildschirm 
ausgedruckt. Enthält die Vari- 
able den Wert 0, so wird ein 
FC-Error erkannt. Mehrsymbolige 
Variablen (z.B. AA, X%, CE,...) 
erzeugen einen Syntax-Error. 
Änderbar in den Zeilen 1200— 
1430. 
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Sol! nun ein neuer Basic-Be- 
fehl gefunden oder ausgeführt 
werden, wird zunächst das Label 
START aufgerufen. Hier werden 
zunächst einmal alle Register 
gerettet, um den Programmab- 
lauf nicht durch Operationen zu 
stören, die die Registerinhalte ver- 
ändern. Sie können also bei Än- 
derungen alle Register verwenden. 
Durch RST 16 wird der nächste 
Basic-Befehl in das Register A 
geladen und anschließend an B 
übergeben. Nun wird durch ein 
erneutes RST 16 das nächste 
Zeichen aus dem Programmtext A 
geladen. Ist diese Zeichen ein 
Ausrufezeichen, so wird kontrol- 
liert, wie der Befehl (nun in B 
stehend) heißt. Wenn nicht, so 
werden die alten Registerinhalte 
zurückgeholt und die Programm- 
ausführung fortgesetzt. Die ein- 
zelnen Befehle werden unter den 
Labels 1—7 und 9—11 kontrol- 
liert. Ist es keiner der oben ange- 
gebenen Befehle, wird die Pro- 
grammausführung fortgesetzt. 


ansonsten wird der Befehl in den 
jeweils oben angegebenen Zeilen 
ausgeführt. Anschließend werden 
die Registerinhalte zurückgeholt 
und die Programmzeiger korri- 
giert. (Label BACK und BACKY). 
Will man nun einen Befehl lösch- 
en, um Speicherplatz einzusparen, 
so muß man lediglich den Auf- 
ruf des Befehls verhindern, indem 
man das entsprechende Label 
überspringt. 

Beispiel: 

Sie möchten den NAME! -Befehl 
komplett löschen und nicht durch 
einen anderen ersetzen. Ändern 
Sie Zeile Nr. 1020 (Label FÜNF) 
um in: 

FÜNF JP SECHS 
Anschließend können Sie alle 
Programmzeilen, die mit dem 
NAME-Befehl zu tun haben, 
löschen. Dies sind die Zeilen: 
1030-1090 und die Zeile 120. 
Dadurch werden 68 Bytes einge- 
spart. Mit allen anderen Befehlen 
können Sie entsprechend verfah- 
ren. 


Die Startadresse (Zeile 100) 
und der Wert für Memory-Size 
(Zeile 160) sind für ein 48 K 
System angegeben. Haben Sie 
weniger Speicher, ändern Sie ein- 
fach die eingesetzten Werte. 

Für 32 K: 

Zeile 100: ORG 0BDD8H 

Zeile 160: LD HL,0BDD6H 

Für 16 K: 

Zeile 100: ORG 07DD8H 

Zeile 160: LD HL.07DD6H 

Haben Sie einige Programmteile 
gelöscht, so können Sie diese Wer- 
te natürlich entsprechend den 
eingesparten Bytes erhöhen. 

Sollten Sie noch Fragen zu die- 
sem Programm haben oder zu 

dem Einen oder Anderen Teil 

genauere Erläuterungen wünschen, 
so bin ich bereit, Ihre Briefe gerne 
zu beantworten. Legen Sie jedoch 
bitte entsprechendes Rückporto 
bei. 

Nun bleibt mir nur noch, 
Ihnen beim Ausprobieren der neu- 
en Befehle viel Spaß zu wünschen. 


00001 ;**************************************************************** 

00002 ; 

00003 ; BAS IC-UTILITY 

00004 ; COPYRIGHT (C) 1983 BY RAINER SCHMIES 

00005 ; NI EHLER STR. 325 

00006 ; 5000 KOELN 60 

00007 ; 

00008 ; ************************************** **************** ** ******** 


00 100 

ORG 

OFDDBH 

; ANFANG DES PROGRAMMS IM SPEICHER 

00110 BEF 

DEFM 

7 50s 7 


00120 TEXT 

DEFM 

'BASIC UTILITY! 

! COPYRIGHT (C) 1983 BY RAINER SC 

HMIES’ 

00130 WERT 

DEFS 

1 

; HILFSSPEICHERSTELLE FUER 'STOP!' 

BEFEHL 

00140 I NIT 

LD 

HL, START 

; FUEGT PROGRAMM IN DIE 5YNTAX- 

00150 

LD 

(4004H) , HL 

; UEBERPRUEFUNG EIN 

00160 

LD 

HL, 0FDD6H 

; SETZT WERT FUER MEMDRY-SIZE 

00170 

LD 

( 40B1H) , HL 

; EI N UND FUEHRT EIN ’ CLEAR50’ 

00180 

LD 

HL, BEF 

; AUS. ANSCHLIESSEND SPRUNG 

00190 

INC 

A 

; ZURUECK INS BASIC. 

00200 

CALL 

1E7AH 


00210 

JP 

06CCH 

; SPRUNG INS BASIC 

00220 START 

EX 

(SP) ,HL 

iUEBERPRUEFT OB BEFEHL ERKANNT 

00230 

LD 

A, H 

; WERDEN SOLL, WENN NEIN, ZURUECK 

00240 

CP 

1DH 


00250 

EX 

(SP) , HL 


00260 

JP 

NZ , 1D7BH 


00270 

002B0 

PUSH 

EXX 

HL 

; ANSONSTEN REGISTER RETTEN 

00290 

POP 

HL 
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00300 

RST 

10H 

00310 

LD 

B. A 

00320 

RST 

10H 

00330 

CP 

21H 

00340 

JR 

Z , EINS 

00350 

EXX 


00360 

JP 

1D7BH 

00370 EINS 

LD 

A, B 

00380 

CP 

175 

00390 

JR 

NZ, ZWEI 

00400 

LD 

HL, 15360 

00410 

LD 

C, 16 

00420 LO 

LD 

B, 8 

00430 LI 

LD 

A, 32 

00440 

CALL 

924 

00450 

DJNZ 

LI 

00460 

LD 

B, 64 

00470 L2 

LD 

A, (HL) 

00480 

CALL 

924 

00490 

INC 

HL 

00500 

DJNZ 

L2 

00510 

LD 

A, 13 

00520 

CALL 

924 

00530 

DEC 

C 

00540 

JR 

nz,lo 

UCKT ? 



00550 BACK 

EXX 


00560 

INC 

HL 

00570 

INC 

HL 

00580 

JP 

1D78H 

00590 ZWEI 

CP 

178 

00600 

JR 

NZ , DREI 

00610 

LD 

HL, 15360 

00620 

LD 

BC, 1024 

00630 LOOP 

LD 

A, (HL) 

00640 

CP 

32 

00650 

JR 

NZ , LAB1 

00660 

LD 

Dk 1Q1 
* 

00670 

LD 

(HL) ,A 

00680 

JR 

LABEL 

00690 LAB1 

BIT 

7,A 

00700 

JR 

Z, LABEL 

00710 

XOR 

63 

00720 

LD 

(HL) , A 

00730 LABEL 

INC 

HL 

00740 

DEC 

BC 

00750 

LD 

A, B 

00760 

OR 

C 

00770 

JR 

NZ , LOOP 

00780 

JR 

BACK 

00790 DREI 

CP 

181 

00800 

JR 

NZ, VIER 

00810 

LD 

A, (16414) 

RM 



00820 

CP 

88 

00830 

JR 

NZ, ACHT 

00840 

LD 

HL, 1421 

00850 

LD 

(16414) , HL 

00860 

JR 

BACK 

00870 ACHT 

LD 

HL, 1112 


; HOLT NÄCHSTES ZEICHEN 


; IST ZEICHEN EIN 7 ! 7 7 
; WENN JA, BEFEHLE ABFRAGEN 
; WENN NEIN, ZÜRUECK 


; 7 LPRINT ! 7 -BEFEHL 7 

; WENN NEIN, WEITER 

; WENN JA, BILDSCHIRM AUSDRUCKEN 

; ERST B FUEHRENDE BLANKS 


; DANN EINE BILDSCHIRMZEILE 


: NAECHSTE ZEILE 


; ALLE 16 BILDSCHIRMZEILEN AUSGEDR 
; WENN JA, ZURUECK 


; 7 PR INT! 7 -BEFEHL 7 
; WENN NEIN, WEITER 
; SONST GRAFIKZEICHEN INVERTIEREN 



; 7 LL IST! 7 -BEFEHL ? 

; WENN NEIN, WEITER 

; ABFRAGE DB DRUCKER ODER BILDSCHI 
; EINGESCHALTET IST UND UMSCHALTEN 
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008 BO 


LD 

00890 


JR 

00900 

VIER 

CP 

00910 


JR 

00920 


LD 

IGINALWERT 


00930 

LEVEL 

II 

CP 

00940 


JR 

00950 


LD 

00960 


LD 

00970 


LD 

009BO 


JR 

00990 

VIERI 

LD 

OIOOO 


LD 

01010 


JR 

01020 

FUENF 

CP 

01030 


JR 

01040 


CALL 

01050 


LD 

01060 


LD 

01070 


LD 

OIOBO 


LDIR 

01090 

BACK1 

JR 

01100 

SECHS 

CP 

01110 


JR 

01120 


LD 

01130 


LD 

01140 


LD 

01150 


LD 

01160 


LDIR 

01170 


JR 

01180 

SIEBEN 

CP 

01190 


JR 

01200 


CALL 

01210 


LD 

ANZEIGEN 


01220 

SLO 

RL 

01230 


CALL 

01240 


DJNZ 

01250 


LD 

01260 

SL01 

RL 

01270 


CALL 

012B0 


DJNZ 

01290 


LD 

01300 


CALL 

01310 


JR 

01320 

RAUS 

JR 

01330 


LD 

01340 


CALL 

01350 


RET 

01360 

RAUS1 

LD 

01370 


CALL 

01380 


RET 

01390 

BACKY 

EXX 

01400 


INC 

01410 


INC 

01420 


INC 

01430 


EXX 

01440 


JR 


( 16414) ,HL 

BACK 

148 

NZ.FUENF 
A, (16396) 


; ' STOP ! * -BEFEHL ? 

; WENN NEIN, WEITER 

; BREAK-TASTE UMSCHALTEN, DABEI QR 


; ABSPEICHERN. DA UNTERSCHIEDE IM 


Z, VIERI 
(WERT) , A 
A, 23 

(16396) , A 
BACK 
A, (WERT) 
(16396) , A 
BACK 
169 

NZ, SECHS 
457 

HL, TEXT 
DE, 15872 
BC, 53 


; UND BEI DISKETTENBETRIEB 


Inserieren Sie im GENIE-DATA-Einkaufsführer 
WER • WAS ■ WO - Info Seite 13 und 14 



; 7 NAME ! 7 -BEFEHL ? 
;WENN NEIN, WEITER 
; BILDSCHIRM LOESCHEN 
; COPYRIGHT AUSDRUCKEN 


BACK 

132 

NZ, SIEBEN 
HL, 15360 
DE, 15361 
BC, 1023 
(HL) , 191 


; 7 CLS ! 7 -BEFEHL ? 

; WENN NEIN, WEITER 

; BILDSCHIRM MIT CHR*(191> FUELLEN 


BACK1 

190 

NZ , NEUN 
0A7FH 
B, 8 


; 7 FN! (VAR) 7 -BEFEHL ? 

; WENN NEIN, WEITER 

; VARIABLE AUSWERTEN 

; B I NAERDARSTELLUNG AUSTESTEN UND 


H 

RAUS 

SLO 

B, B 
L 

RAUS 
SL01 
A, 13 
33H 
BACKY 

C, RAUS 1 
A. 48 
33H 


A, 49 

33H 


HL 

HL 

HL 

BACK1 



"Watt meinste denn nun Josef ob et denn nun 
in Zukunft mehr Anjebotsinserate für uns jibt, 
u. de Zeitung dadurch noch schönner u. stärker wird?" 
"Sicher dat Hans, wir kaufen dann ja auch viel mehr 
weil dat Anjebot viel jrößer is!" 

"Wo kuckst Du denn schon die janze Zeit so 
stierig hin Pitter?" 

"Och ich suche schon de janze Zeit nach ene Tel.-Nr. 
weil ich wat bestellen will!" 

"Pitter, die Nr. findste bestimmt beim nächsten mal hier!" 
"Also tschüss, madet jott bis zum nächste mool!" 
"Tschüss Jonge!" 
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01450 NEUN 

01460 

01470 

014BO 

01490 

01500 

01510 

01520 TON 

01530 

01540 

01550 TONL 

01560 

01570 

01580 

01590 

01600 

01610 BACKY1 
01620 ZEHN 
01630 
01640 
01650 
ZEIGEN 
01660 
01670 
016BO ZL 
01690 
01700 
01710 
01720 
01730 
01740 
01750 ZL1 
01760 
01770 
017BO 
01790 
01800 
01810 
01820 
01830 
01840 ZL2 
01850 
0 1860 
01870 
01880 
01890 
01900 
01910 ZL3 
01920 
01930 
01940 
01950 
01960 
01970 ZL4 
01980 
01990 
02000 
02010 
02020 
02030 


CP 

150 

JR 

NZ , ZEHN 

CALL 

0A7FH 

LD 

A,L 

AND 

15 

LD 

B, A 

RL 

B 

LD 

A. 1 

OUT 

(255) , A 

PUSH 

BC 

DJNZ 

TONL 

POP 

BC 

XOR 

A 

OUT 

(255) , A 

DEC 

L 

JR 

NZ, TON 

JR 

BACKY 

CP 

136 

JP 

NZ, ELF 

CALL 

0A7FH 

LD 

A.H 

AND 

240 

LD 

B,4 

RR 

A 

DJNZ 

ZL 

LD 

B, A 

LD 

I X, TABEL 

CP 

0 

CALL 

Z, NULL 

LD 

B, A 

INC 

IX 

DJNZ 

ZL 1 

LD 

A, (IX) 

CALL 

DRUCK 

LD 

A, H 

AND 

15 

CALL 

Z , NULL 

LD 

B, A 

LD 

I X , TABEL 

INC 

IX 

DJNZ 

ZL2 

LD 

A, (IX) 

CALL 

DRUCK 

LD 

A, L 

AND 

240 

LD 

B,4 

RR 

A 

DJNZ 

ZL3 

CP 

o 

CALL 

Z , NULL 

LD 

B, A 

LD 

IX, TABEL 

INC 

IX 

DJNZ 

ZL4 

LD 

A. (IX) 

CALL 

DRUCK 

LD 

A,L 

AND 

15 

CALL 

Z , NULL 


' TRQN ! CVAR) '-BEFEHL ? 

WENN NEIN, WEITER 

VARIABLE AUSWERTEN 

TON AUF KASSETTENPORT AUSGEBEN 



7 DATA ! (VAR) ’ -BEFEHL ? 

WENN NEIN, WEITER 
VARIABLE AUSWERTEN 
HEX-DARSTELLUNG ERSTELLEN UND AN 



Hür- T>mz%- 


BESTELLUNGEN 

AN 

HEINZ HÜBBEN 
Abt. Softwareverlag 
Mühlbachstr. 2 
D-5429 Marienfels 

Tel. 06772/1261 
******** 
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02040 


LD 

02050 


LD 

02060 

ZL5 

INC 

02070 


DJNZ 

020SO 


LD 

02090 


CALL 

02100 


LD 

02110 


CALL 

02120 


JR 

02130 

DRUCK 

CALL 

02140 


RET 

02150 

TABEL 

DEFM 

WERTUNG 


02160 

NULL 

LD 

02170 


RET 

021B0 

ELF 

CP 

02190 


JP 

02200 


LD 

02210 


PUSH 

02220 


LD 

02230 


ADD 

02240 

ELFLO 

LD 

02250 


CP 

02260 


JR 

02270 


INC 

02280 


JR 

02290 

ELFCON 

INC 

02300 


PUSH 

02310 


POP 

02320 


POP 

02330 


LD 

02340 


INC 

02350 


LD 

02360 


LD 

02370 

ELFL02 

LD 

02380 


INC 

02390 


LD 

02400 


PUSH 

02410 


POP 

02420 


LD 

02430 


CP 

02440 


JR 

02450 


LD 

02460 


ADD 

OGRAMM 


02470 


LD 

02480 


LD 

02490 


LD 

02500 


JP 

02510 


END 



B. A 

IX, TABEL 

IX 

ZL5 

A, (IX) 

DRUCK 

A, 13 

DRUCK 

BACKV1 

33H 



’ Ol 23456789ABCDEF0’ ; HILFSTABELLE ZUR HEX-AUS 


A, 16 


1 87 

NZ , BACK 1 

HL, (40A4H) 

HL 

DE, 4 

HL, DE 

A, (HL) 

0 

Z, ELFCON 
HL 

ELFLO 

HL 

HL 

BC 

HL 

(HL) , C 
HL 

(HL) ,B 
HL, (40A4H) 
E, (HL) 

HL 

D, (HL) 

DE 
HL 
A, O 
(HL) 

NZ , ELFLQ2 
DE, 4 
HL, DE 


; •' NEW ! ’ -BEFEHL ? 

: WENN NEIN, ZURUECK 
; ADDRESSE DER ZWEITEN BASIC-ZEILE 
; ERRECHNEN UND EINSETZEN 



; BASIC-PROGRAMMENDE SUCHEN 


; VARIABLENTABELLE HINTER BASIC-PR 


(40F9H) .HL 
(40FBH) , HL 
(40FDH) , HL 
BACK1 
INIT 


; NEU ANLESEN LASSEN 



*>£ 
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GENIE Hl 4i 


Catharina Stodden 

Neuer Zeichensatz 

Wird Ihnen Ihr Zeichensatz im Genie I oder II langsam langweilig? Möchten Sie vielleicht anstelle 
der eingebauten Schrift lieber eine andere Schrift haben? 


Oder wie wäre es mit Grafikzeichen 
In diesem Artikel zeigen wir Ihnen, 

Es gibt viele Gründe, den im Vi- 
deo Genie sitzenden Zeichengene- 
rator eventuell gegen einen eige- 
nen auszutauschen. Zum Bei- 
spiel für Besitzer von älteren Mo- 
dellen des Genie mit amerikani- 
schem Zeichensatz, die gerne deut- 
sche Textverarbeitung machen 
wollen. Oder zum Beispiel Besit- 
zer von Genie-Modellen die zwar 
den deutschen Zeichensatz ha- 
ben, aber die restlichen Zeichen 
gern selbst definieren wollen, etwa 
für die Simulation von Kartenspie- 
len (Im Genie Zeichensatz fehlen 
bekanntlich die Spielkartensym- 
bole). 

Die folgende Anleitung soll dem 
Leser Anleitung und Hilfe sein, 
um mit relativ wenigen Mitteln 
den Zeichensatz des Genie selbst 
zu definieren. 

Notwendig zur Durchführung 
ist lediglich ein EPROM-Program- 
mierer für EPROM's des Typs 
2716 (2K EPROM), etwa wie in 
der GENIE DATA schon ver- 
öffentlicht, sowie ein (oder meh- 
rere?) leere 2716 EPROM. Wer 
die Anschaffung eines solchen Pro- 
grammierers nicht für lohnend 
hält, nur um den Zeichensatz des 
Genie zu verändern, dem sei ver- 
raten, daß auch das bei den mei- 
sten Modellen verwendete Zusatz- 
EPROM vom Typ 2716 ist und 
daher selbst mit Hilfe eines Pro- 
grammierers programmiert werden 
kann. Wer hier eventuell auch ei- 
gene Routinen für sein Betriebs- 
system schreiben will, dem sei 
zur Anschaffung eines solchen Ge- 
rätes sehr geraten. 

Bevor nun frisch ans Werk ge- 
gangen wird, seien noch einige 
für das Verständnis wichtige Vor- 
bemerkungen gemacht, die auch 
vielleicht jene interessieren 
könnten, die zwar nicht die Ab- 
sicht haben, ihren Zeichensatz zu 


, wie man sie z. B. vom Colour Genie 
wie Sie den Zeichensatz Ihres Compi 

ändern, die jedoch etwas in der 
Hardware ihres Genie schnuppern 
wollen. 

Wie bringt nun das Genie Zei- 
chen auf den Bildschirm? Wer eine 
große Haushaltslupe sein eigen 
nennen kann, mag einmal ein vom 
Computer erzeugtes Zeichen (z. B. 
"A") genauer betrachten, und er 
wird feststellen, daß es sich ledig- 
lich um die bestimmte Aneinan- 
derreihung von Punkten handelt. 
Diese Punkte liegen genau auf den 
Linien, die der Elektronenstrahl 
des Fernsehers ständig auf den 
Bildschirm schreibt. 

Der Computer muß über den 
Videoausgang dem Fernseher, 
bzw. dem Monitor, melden, wann 
und an welcher Stelle der Strahl 
hell oder dunkel gesteuert wird, 
d.h. ein heller Fleck, bzw. Punkt, 
auf dem Bildschirm entsteht. Um 
es kurz zu sagen : Der Computer 
und der Monitor müssen so syn- 
chronisiert werden, daß an einer 
bestimmten Stelle, zu einer be- 
stimmten Zeit, Punkte aufleuch- 
ten, sodaß ein Zeichen entsteht. 

Wie dies im einzelnen vor sich 
geht, mag die Elektroniker unter 
den Lesern interessieren, ich 
möchte hier nur das Prinzip nä- 
her erläutern. Ich greife hierzu 
ein willkürliches Beispiel auf, näm- 
lich die Erzeugung des Buchsta- 
bens "A" auf der ersten Bild- 
schirmposition: 

Wie aus Bild 1 ersichtlich, be- 
steht ein Zeichen aus Zeilen (Li- 
nien) und Spalten. Das Genie 
stellt für jedes Zeichen jeweils 
12 Zeilen (0 - 11) und 6 Spal- 
ten bereit. Wie das Bild zeigt, 
wird für einen Großbuchstaben 
7 Zeilen (= Höhe) und 5 Spalten 
(= Breite) benötigt. Die erste Spal- 
te bleibt als Zwischenraum, damit 
der Buchstabe vom vorhergehen- 
den Zeichen noch abgehoben er- 


her kennt? 

ters ändern können. 

scheint. Die unteren 5 Zeilen sind 
der sogenannte Zeilenzwischen- 
raum, der sich zwischen zwei über- 
einander liegenden Zeichen befin- 
det, der aber auch belegt sein 
kann, zum Beispiel durch ein Gra- 
fikzeichen (siehe Bild 1 ). 

Dies soweit zum allgemeinen 
Prinzip. 

Wie wird nun dem Fernseher 
bzw. Monitor übermittelt, welche 
Punkte aufleuchten müssen? 

Hierzu müssen wir erst einmal 
ein Zeichen (bleiben wir beim 
"A") digitalisieren, d.h. in die für 
einen Computer verständliche Bi- 
närsprache übersetzen. Dazu wird 
jeder Zeile des Zeichens eine Zahl 
aus Nullen und Einsen zugeord- 
net, und zwar so, daß überall dort, 
wo ein Punkt ist, eine 1 steht und 
da, wo kein Punkt aufleuchten soll 
eine 0. Dies zeigt Bild 2. Jedem 
Zeichen sind somit 12 Zahlen 
(Anzahl der Zeilen) mit jeweils 6 
Stellen (Anzahl der Spalten) zuge- 
ordnet. 

Diese 12 Zahlen werden nun in 
elektrische Signale umgewandelt 
und nacheinander (seriell) dem 
Monitor übermittelt. Dabei bedeu- 
tet ein Punkt (eine 1 ), daß hier der 
Schreibstrahl hell gesteuert wird. 
Der Schreibstrahl beginnt die Li- 
nie 0 zu schreiben. Synchron hier- 
zu wird ihm die erste Zahl des Zei- 
chens, nämlich 000100, Stelle für 
Stelle mitgeteilt. Das Synchroni- 
sieren besorgt eine ausgeklügelte 
Elektronik, die zu jeder Position 
des Schreibstrahls die ent- 
sprechende Stelle einer Zeilen- 
zahl bestimmt. 

Hat der Schreibstrahl alle 6 
Stellen der ersten Zeile des Zei- 
chens ("A") hinter sich gebracht, 
schließen sich die nächsten 6 
Stellen der ersten Zeile des näch- 
sten Zeichens (z. B. irgend ein an- 
derer Buchstabe) an, bis die erste 
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Bildschirmzeile voll ist. 

Dann schreibt der Elektronen- 
strahl die nächste Zeile (Zeile 1) 
und beginnt mit der zweiten Zei- 
le des Zeichen "A", die wiederum 
den Code 001010 zugeführt be- 
kommt usw. 

Da der Computer ja einen fe- 
sten Zeichensatz besitzt, wäre es 
zu aufwendig, die einzelnen Zah- 
len zu den jeweiligen Zeilen eines 
Zeichens immer wieder neu zu er- 
zeugen. Daher sind alle Zeichen- 
zahlen (jeweils 12, siehe oben) 
für jedes einzelne Zeichen in ei- 
nem EPROM oder ROM Speicher 
gespeichert, sodaß sie nur ausge- 
lesen werden müssen und sofort 
dem Fernseher oder Monitor zu- 
geführt werden können. 

Übrigens kann man die Zahl der 
einzelnen Zeichenzahlen leicht be- 
stimmen, indem man die An- 
zahl der verschiedenen Zeichen 
(beim Genie 128) mit 12 mul- 
tipliziert. Das wären demnach 
128 mal 12 = .1536 Zahlen, die 
das EPROM oder ROM speichern 
müßte. Da ein Computer keine 6- 
stelligen Binärzahlen kennt, son- 
dern nur 8- oder 16-stellige, wird 
einer Zeilenzahl eine 8-stellige 
Binärzahl zugeordnet. Aus 000100 
wird dann 00010000, also ein- 
fach zwei Nullen angehängt. Auch 
die Zahl 12 (Anzahl der Zeilen) 
wird verlängert auf 16. Diese 
Stelienzahlumwandlung hat aber 
nur etwas mit der Computereige- 
nen Rechenweise zu tun und in- 
teressiert hier auch nur, weil die 
Zeichenzahlen in diesem Format 
im EPROM bzw. ROM gespeichert 
sind. Und gerade dieses wollen 
wir ja verändern. 

Ich hoffe, die prinzipielle Funk- 
tionsweise der Zeichenerzeugung 
ist einigermaßen verständlich ge- 
worden, sodaß wir nun so lang- 
sam zum eigentlichen Thema 
kommen können. 

Da die Zahl 12 auf 1'6 erhöht 
wurde, stimmt natürlich auch un- 
sere Rechnung betreffs der gespei- 
cherten Zeilenzahlen nicht mehr. 
Es sind jetzt 128 mal 16 = 2048 
Zahlen, und somit ist ein EPROM 
nötig, mit einer Speicherkapazi- 
tät von 2 KByte (2048 Bytes). 

Wie schon eingangs erwähnt, 


wird ein EPROM vom Typ 2716 
verwendet, das sich ohne irgend- 
eine Hardwaremodifikation ein- 
setzen läßt. Wo, sehen wir später. 

Zunächst noch einmal zum For- 
mat der Zeichen, wie sie im 
EPROM abgespeichert sind: 

Das Zeichen 0 beginnt auf der 
Adresse 0000 (hexadezimal) des 
EPROM's und geht bis Adresse 
000F. Das sind die ersten 16 Bytes 
des EPROM's. Zeichen 1 beginnt 
dann anschließend auf Adresse 
0010 und geht dann bis Adresse 
001 F. So geht es immer weiter. 

Der besseren Übersicht wegen 
ist dieser Zusammenhang noch- 
mals anhand unseres Buchstabens 
"A" dargestellt. Bild 3 zeigt das 
Punktraster, die jeweiligen Zeilen- 
zahlen und die Adressen im 


Ü 93 (dez.) 

ä 123 (dez.) 

ö 124 (dez.) 

ü 125 (dez.) 

ß 126 (dez.) 

Für die Erstellung der Zeichen 
müssen noch folgende Punkte be- 
achtet werden : 

- Von den 16 Bytes eines 
EPROM Bereiches lassen sich nur 
die ersten 12 (entsprechend der 
dargestellten Zeilen auf dem Bild- 
schirm) nutzen. Die restlichen By- 
tes müssen Null sein. 

— Von jedem Byte (8 Stellen) 
kann nur 8it 7 bis Bit 3 benutzt 
werden. Bit 0 und Bit 1 müssen 
Null sein. 

- Großbuchstaben benutzen Zei- 
le 0 bis Zeile 6, Kleinbuchstaben 
auch Zeile 7 bis Zeile 9 oder 10. 

— Die Zeichen sollten zunächst 
auf Papier gebracht und die ent- 
sprechenden Bytes und Adressen 
errechnet werden. Erst dann sollte 
mit dem Programmieren begonnen 
werden. 

Mein Tip: 

Ein kleines Basic Programm schrei- 
ben, das die Berechnungen der Co- 
des und Adressen übernimmt und 
beim Entwerfen der Zeichen be- 


EPROM an. Da der Buchstabe 
"A" den ASCII -Code 41 (hexa- 
dezimal), bzw. 65 (dezimal) hat, 
läßt sich die zugehörige Adresse, 
an der die Zeilenzahl für "A" im 
EPROM beginnt, leicht errechnen : 
ASCI I-Code des Zeichens (hier 65) 
mal 16 = 1040 (dezimal), siehe 
Bild 3. 

Wie programmiert man nun 
neue Zeichen? 

Zunächst muß man sich darü- 
ber klar werden, welche Zeichen 
man will, und an welchen Platz 
diese Zeichen sollen, bzw. welchen 
Code diese Zeichen erhalten sol- 
len. Will man z. B. die deutschen 
Umlaute und Sonderzeichen ha- 
ben, müssen folgende ASCII -Co- 
des belegt werden : 


1024-1039 (dez.) = 16 Bytes 
1456-1471 (dez.) = 16 Bytes 
1472 -1487 (dez.) = 16 Bytes 
I486 -1503 (dez.) = 16 Bytes 

1968-1983 (dez.) =-- 16 Bytes 
1984-1999 (dez.) = 16 Bytes 
2000 -2015 (dez.) = 16 Bytes 
2016-2031 (dez.) = 16 Bytes 

hilflich ist. 

Steht der neue Zeichensatz mit 
all seinen Codes und Adressen zur 
Verfügung, kann programmiert 
werden. 

Hierzu läßt sich wenig allge- 
meines sagen, da die Programmie- 
rer für EPROM's alle unterschied- 
lich arbeiten. Wenn möglich soll- 
ten zur Zeitersparnis die bleiben- 
den Zeichen aus dem alten Zei- 
chen EPROM kopiert werden. 

Das spart die Berechnungen für 
die Zeichen, die man aus dem al- 
ten Zeichengenerator beibehalten 
will. 

Zum Schluß noch etwas über 
den Austausch der EPROM's. 

Der Zeichengenerator des Genie 
sitzt unter der Tastaturplatine auf 
dem Interfaceboard (rechte Pla- 
tine). Siehe Skizze. 

Es handelt sich um ein 24-poli- 
ges IC, das auf einer Fassung 
sitzt. Je nach Modell kann das IC 
längst oder breit liegen. Wichtig 
ist beim Austausch, das die Ein- 


Zeichen 


ASCII -Code 


EPROM-Bereich (Adressen) 


§ 

Ä 

ö 


64 (dez.) 

91 (dez.) 

92 (dez.) 


HARDWARE 


43 


kerbung des neuen EPROM's in 
die gleiche Richtung weist, wie die 
des des Alten. 

Beim Aufmachen des Genie, so- 
wie;, beirri Entfernen der Tastatur- 
platine sollte so vorgegangen wer- 
den, wie es schon öfters in der 
GENIE DATA bei Bauanleitungen 
beschrieben wurde. 

Und nun viel Spaß beim Erstel- 
len des neuen Zeichensatzes. 


BILD 2 
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Binär-Äquivalente 
= Zeilenzahlen 
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Buchstabe 


Grafik' 


DM-Adrasse 

Binär 

Dezimal 

Byte 

1038 

00000000 

0 

15 

1039 

00000000 

0 

16 

1040 

00100000 

32 

1 

1041 

01010000 

80 

2 

1042 

10001000 

136 

3 

1043 

10001000 

136 

4 

1044 

11111000 

248 

5 

1045 

10001000 

136 

6 

1046 

10001000 

136 

7 

1047 

00000000 

0 

8 

1048 

00000000 

0 

9 

1049 

oooooooo 

0 

10 

1050 

oooooooo 

0 

11 

1051 

oooooooo 

0 

12 

1052 

oooooooo 

0 

13 

1053 

oooooooo 

0 

14 

1054 

oooooooo 

0 

15 

1055 

oooooooo 

0 

16 
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Zeile 0 — i 


Zeile 6 H 


Zeile 11 


Zeile 0 - 6 = Großbuchstaben 


Zeile 7 - 11 = Zeilenzwischenraum 


Bytes 1-12 
für Zeichen 
frei 


Nuilbytes 


SKIZZE 
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STEIGEN SIE EIN IN IHREN F1 REBIRD COMMANDER zeigen Sie Ihren Freun- 
den und der Welt, daß Sie ein Sieger sind! Einfach ist der Kampf nicht um zu siegen 
und die Erde zu retten. 



Jedes Spiel für 
COLOUR GENIE 
ist 2x auf Cassette 
kopiert! 

BESTELLUNGEN 
werden sofort am 
gleichen Tag an Sie 
abgeschickt! 

Bei Vorkasse 
durch Scheck oder 
Postbar, sparen Sie 
die Nachnahme- 
gebühren! 


Produktion: Heinz Hübben 

Realisation und Speciai-Effects: T. M. BINZINGER 

Weltvertrieb; Fa. Heinz Hübben, Abt. Software-Verlag 

Mühlbachstraße 2, D-5429 Marienfels/Taunus 

Preis; NUR DM 49 .““ 


FIREBIRD, - rettet die Erde! Cr©LOUIl ai €iiEi^iilE 


Sie sind der Kommandant des Firebird, ein Raumschiff, daß seinesgleichen sucht. Bis 
an den Zähnen bewaffnet treten Sie den Angreifern aus dem Weltall entgegen um die 
Erde vor der Vernichtung zu bewahren! AUF SIE KOMMT ES AN COMMANDER. Beste- 
hen Sie den Kampf mit 16 Feindflotten! Sie haben unbegrenzte Schußenergie mit Ihren 
Neutronenstrahlcn-Kanonen. Sie haben jeweils 2 A-Bomben. Und nach der Befreiung 
von jedem neuen Planeten erhalten Sie zusätzlich 2 A-Bomben. Es ist klar, bei Anwen- 
dung der A-Bomben ist eine ganze Feindflotte sofort eliminiert. Bei ganz gefährlichen 
Situationen können Sie einen Schutzschild aktivieren und trotzdem Feinde abschießen! 



Mit diesen drei Spielen erwerben Sie für das COLOUR GENIE eine Spiele-Cassette die es in sich hat. 
Die einmalig verspielte bunte gekonnt ausgeführte Grafik und der ab und zu ermunternde Ton wer- 
den Sie faszinieren. - Da können Sie immer wieder ein paar schöne, frohe Stunden erleben und sich 
freuen, daß Sie hierdurch Ihre Spiele- Sammlung um drei so fantastische Spiele zu einem so günsti- 
gen Preis bereichert haben. 

DIESE SPIELE KÖNNEN SIE AUCH AUF DISKETTE BEKOMMEN FÜR NUR DM 66,-. 




auf Casselte 




AUCH DIESE DREI SUPERSPIELE auf eine Cassette beweisen wie- 
der eine ECHTE LEISTUNG aus dem HAUSE HÜBBEN die Ihnen 
faszinierende Stunden und gute Laune bringen werden. 

Hier, wie oben, müssen Sie einfach zugreifen, weil Sie viel viel Spiel 
bekommen ... für wenig Geld! 


BESTELLUNGEN 

AN 

HEINZ HÜBBEN 
Abt. Softwareverlag 
Mühlbachstr. 2 
D-5429 Marienfels 

Tel. 06772/1261 
******** 

Heute bestellt 
morgen geliefert! 









PREIS AUF DISKETTE NUR DM 66 




A S T R A Y , - der schnellste Überschall-Jäger der Erde ! 


BESTELLUNGEN 

AN 

HEINZ HÜBBEN 
Abt. Softwareverlag 
Mühlbachstr. 2 
D-5429 Marienfels 

Tel. 06772/1261 
******** 


V 0 R T E X ein SUPER-ACTION-SPIEL vergleichbar mit Astray und Helikopter 

Saturnring * Blaue Ufos * Bomben, Flattcrmanner, V-Jäger, Bordwaffen, Spinnenschiff 

PREIS AUF DISKETTE NUR DM 56,-. N U R D M 43,- 


BESTELLUNGEN 

AN 

HEINZ HÜBBEN 
Abt. Softwareverlag 
Mühlbachstr. 2 
D-5429 Marienfels 

Tel. 06772/1261 
******** 


Dieser P A C B O Y macht dem "Alten" in allen Beziehungen was vor. Es ist eben 
wie der Name schon sagt ein PacBOY. Er ist schnell und fix auf den Beinen. Zum 
Schluß mit unsichtbarem Labyrinth. Ein echtes SUPER-SPIEL. 

PREIS NUR DM 4 9 ,~ j 

PREIS FÜR SPIEL AUF DISKETTE NUR DM 56,- 1 

. | 





HELIKOPTER u. der weißeElefant 


HEINZ HÜBBEN 
Abt. Softwareverlag 
Mühlbachstr. 2 
D-5429 Marienfels 
Tel. 06772/1261 


COLOUR-GENIE 


MPR ESSUM 


GENIE DATA, Ausgabe 1. Jahrgang 2, 
Januar/Pebruar 1983. 

Herausgeber: Heini Huobon, Offsetdruckerei 
und Verlag, 5429 Marienfels, 

Telefon: 06772-1261 
Chefredakteur-, Heinz Hübbon 
Titelgestallung: H. Hubben, Of fseldruckcrol 
und Vorlag, 5429 Marionfols/Ts. 

Sali: H. HUbbon, Offsetaruckoroi und Vorlag. 
5429 Marienfels/Ts. 

Druck: H, HUbben, Offsetdruckerei und 

Verlag, 5429 Marionfols/Ts, 
Erscheinungsweise: Alle zwei Monate, Jeweils 
am 15. des Monats. 

Abonnemonts: 59,40 DM incl. Porto, Vorpak- 
kung und gesetzl. MWSt. 

Erfüllungsort: 5429 Marionfels/Ts. 
Gerichtsstand: In Jedem Fall das für unseren 
Verlag zuständige Gericht. 

Manuskripte: unangoforderte Manuskripte 

worden nur zurückgosandt. wenn ausreichen- 
des Rückporto boigolegt wurde. Jeder Ein- 
sender erklärt sich durch me Einsendung mit 
einer Veröffentlichung dos oingesandton Ma- 
terials in der GENIE DATA und Im GENIE 
DATA Software Service einverstanden. 


Copyright (c) 1984 Oy Heinz HUboon, Offset- 
druckerel und Verlag, 5429 Marienfels /Ts. 
Nachdruck, Vorvieiialtigung, uoertragung so- 
wie Speicherung in EDV-Anlagen verboten. 
Boi Bauanloltungen und/oder Programmen 
kann für die Fehlerfroiheit keine Garantie 
übernommen werden. 

Oie Meinung der einzelnen Autoren muß 
nicht mit der des Verlages libereinstimmcn. 
Anfragen an die Redaktion bltto nur senrift- 
lich mit boigolegtom Rückporto. 

Kündigung der Abonnements: Zu Jedem Jahr, 
rechtzeitig, vor Ende des Jahres (6 Wochen!. 
Jedes Abonnement verlängert sich nach Ab- 
lauf automatisch um ein Jahr. 

Sollte die GENIE DATA aus Gründen, die 
nicht in der Verantwortung des Verlages lie- 
gen, nicht oder nicht rechtzeitig erscheinen, 
besteht kein Anspruch auf Nachlieferung. 

Für oventuolle Schaden und/oder Folgeschä- 
den an Geraten und oder Bauteilen und/oder 
Datenverlust kann keine Haftung übernom- 
men werden. Oer Nachbau unserer Bauantei- 
tungen und/odor die Anwendung von Pro- 
grammen aus der GENIE DATA erfolgt auf 
eigene Gefahr. Alle Mitteilungen erfolgen nur 
für Amateur- und HObby-Zwcckc. Irrtum so- 


wie alle Rechte Vorbehalten. Es kann keine 
Gewahr dafür übernommen worden, daß die 
verwendeten Schaltungen, Firmennamen, Wa- 
renbezeichnungen und alle anderen Angaben 
frei von Schutzrechten Dritter sind. 

Sämtliche Veröffentlichungen erfolgen ohno 
Berücksichtigung einos eventuellen Patent- 
schutzes uno/oder Gebrauchsmusterschutzes. 
Boi allen Artikel-Einsendungen gehen wir da- 
von aus. daß der Verfasser alle Rechte an dor 
Einsendung besitzt, sowie geistiger Eigentü- 
mer ist. 

Ober jede Artikel-Einsendung freuen wir unsl 
Honorar: Für Jeden gedruckten Artikel be- 
zahlen wir pro Druckseite ein Honorar von 
50,- DM. 

Wir gestatten ledermann, einen Artikol aus der 
GENIE DATA zu entnohmon, und in einer 
anderen, nient kommerziellen, Druckschrift 
zu veröffentlichen, unter der Bedingung, daß 
an der Gestaltung nichts verändert wird, das 
erwähnt wird, daß der betreffende Artikel 
aus der GENIE DATA entnommen wurde 
und daß man uns mindestens ein Exemplar 
der betreffenden Druckschrift kostenlos, so- 
fort nach Erscheinen, zur Verfügung stellt. 













STEIGEN SIE IN IHREN HELIKOPTER! Lassen Sie sich von dem faszinierenden Geräusch des Motors Ihrer Ma- 
schine begeistern I Es geht durch die Lüfte über Landschaften die flach sind, über rauhes Gelände und Berge. Ausge- 
rüstet ist Ihr Helikopter mit den besten Waffen (Sie werden sehr überrascht sein!). Wenn Sie Ihre Kanonen und Bom- 
ben treffsicher einsetzen, dann haben Sie die Möglichkeit unterwegs zu tanken. Sie können waagerecht, senkrecht 
und auch schräg fliegen. Es ist einfach nervenzerfetzend! Dann geht der Flug weiter durch eine lange Felsengrotte 
und Berglandschaften zu einer Stadt. Unterwegs können Sie die in Not geratenen Menschen retten, bei guten fliege- 
rischem Können. Die Menschen winken Ihnen zu. Vorsicht vor den Feinden, die auch nicht schlecht schießen, die 
Grafik und die abwechselnde Farbenpracht wird Sie begeistern. Dann kommt nach längerem Flug und weiteren inte- 
ressanten Landschaften ein künstlicher Tunnel. Bis Sie dann nach acht Spielstufen den weißen Elefanten der Maha- 
rani sichten, den Sie ganz niedrig überfliegen müssen. Sollten Sie dieses Ziel erreichen, dann erhalten Sie einen Son- 
derbonus von 10.000 Punkten. Das Spiel ist eine einzige Nervenanspannung und großes Können muß bewiesen wer- 
den denn sonst sehen Sie den weißen Elefanten nie I Dieses Spiel ist echt seine Dollars wert und bestimmt noch etwas 
mehr. 

-PREIS:— 1 
NUR 
DM 4 o,_ 


COLOUR GENIE 


io versch. Spiel-Szenen, ganz tolle Grafik, Top Sound! 
GORILLA: In Multi-Colour und HÜBI-Vision 
GORILLA: Er sollte auf Ihrem Bildschirm sein! 

Ein Superspiel, was Ihnen immer wieder große 
Freude bereitet und fasziniert! 


Die brandheiße 
DONKEY KONG 
Version 

Realisation und 
Special-Effects: 
T. M. BINZINGER 


Heinz Hiibben 
Abt. Software-Verlag 
Mühlbachstraße 2 
D-5429 Marienfels/Taunus 



